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Prólogo 


La  asignatura  Cálculo  Numérico  se  plantea  como  una  introdución  al  es¬ 
tudio  de  los  métodos  numéricos.  En  el  caso  del  Grado  en  Ingeniería  en  Tec¬ 
nologías  Industriales  de  la  Universidad  Politécnica  de  Cartagena,  se  estudia 
en  el  primer  cuatrimestre  del  tercer  curso.  Se  trata  de  una  asignatura  de  6 
ECTS,  cuyo  objetivo  es  que  el  alumno  conozca  y  sepa  aplicar  los  métodos 
numéricos  básicos  en  situaciones  concretas  propias  de  su  titulación,  así  como 
capacitarle  para  que  pueda  preparar  y  manejar  algoritmos  y  programas  de 
cálculo  para  la  resolución  de  problemas  prácticos,  a  la  vez  que  comprenda 
las  posibilidades  y  limitaciones  de  las  técnicas  numéricas  utilizadas. 

Dentro  de  las  actividades  presenciales  de  la  asignatura,  está  prevista  la 
realización  de  seis  sesiones  prácticas,  de  dos  horas  de  duración  cada  una  en 
el  aula  de  informática,  trabajando  con  el  software  libre  Maxima,  bajo  la 
interface  gráfica  wxMaxima,  los  estudiantes  pueden  disponer  libremente  de 
este  software  en  http:maxima.souerceforge.net/es/.  Para  la  realización  de  los 
programas  contenidos  en  este  manual  hemos  utilizado,  concretamente,  las 
versiones  5.28.0-2  de  Maxima  y  12.04.0  de  wxMaxima.  En  estas  sesiones, 
realizamos  algoritmos  y  programas  propios  para  los  métodos  fundamentales 
desarrollados,  utilizando  dicho  software.  Con  esta  finalidad  hemos  preparado 
este  manual.  En  estas  prácticas  se  persiguen  los  tres  objetivos  fundamentales 
siguientes: 

■  Saber  realizar,  utilizar  y  depurar  programas  de  algoritmos  diseñados 
en  la  parte  teórica  de  la  asignatura. 

■  Estudiar  el  comportamiento  numérico  de  los  códigos  programados. 

■  Dotar  al  alumno  de  criterios  para  seleccionar  un  algoritmo  para  un 
problema  concreto. 

Se  proponen  las  sesiones  prácticas,  de  dos  horas  de  duración  cada  una,  si¬ 
guientes: 

1.  Introducción  al  entorno  wxMaxima:  primera  parte. 
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2.  Introducción  al  entorno  wxMaxima:  segunda  parte. 

3.  Resolución  de  ecuaciones  y  sistemas  no  lineales. 

4.  Métodos  directos  e  iterativos  de  resolución  de  sistemas  lineales. 

5.  Interpolación.  Derivación  e  integración  numérica. 

6.  Métodos  numéricos  de  integración  de  PVI  para  EDO’s. 

Cada  una  de  las  cuales  va  seguida  de  una  serie  de  ejercicios  propuestos, 
que  esperamos  que  el  alumno  intente  resolver  por  si  mismo  antes  de  ver  las 
soluciones  que  le  aportaremos. 

En  cuanto  a  la  bibliografía  de  prácticas  de  Cálculo  Numérico  con  Maxima, 
que  no  es  muy  abundante,  he  consignado  tan  sólo  la  realmente  utilizada  para 
preparar  este  manual  y  que  se  cita  al  final  del  mismo,  espero  que  su  consulta 
pueda  servir  al  alumno  para  profundizar  más  en  los  temas  tratados  así  como 
para  abordar  algunos  de  los  trabajos  que  se  le  puedan  proponer  a  lo  largo  del 
curso,  cabe  destacar  el  manual  oficial  de  Maxima,  la  ayuda  en  línea  de  dicho 
programa,  así  como  el  texto  [10],  en  el  que  se  desarrollan  sobradamente  todos 
los  contenidos  teóricos  abordados  en  estas  prácticas  y  que  puede  consultarse, 
si  hubiera  dudas  en  alguno  de  los  métodos  utilizados  en  estas  prácticas. 

Considero  que  este  manual  de  prácticas  puede  ser  útil  para  estudiantes 
de  otras  titulaciones  de  ciencias  o  ingeniería,  cuyo  plan  de  estudios  contenga 
alguna  asignatura  de  introducción  a  los  métodos  numéricos. 
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Capítulo  1 

Introducción  a  Maxima:  Parte  I 

1.1.  ¿Qué  es  Maxima?.  Operaciones  aritméti¬ 
cas 

Maxima  es  un  sistema  para  la  manipulación  de  expresiones  simbólicas 
y  numéricas,  incluyendo  diferenciación,  integración,  desarrollos  en  series  de 
Taylor,  transformadas  de  Laplace,  ecuaciones  diferenciales  ordinarias,  siste¬ 
mas  de  ecuaciones  lineales,  y  vectores,  matrices  y  tensores.  Maxima  produce 
resultados  con  alta  precisión  usando  fracciones  exactas  y  representaciones 
con  aritmética  de  coma  flotante  arbitraria.  También  realiza  representaciones 
gráficas  de  funciones  y  datos  en  dos  y  tres  dimensiones. 

Es  un  sistema  multiplataforma  y  su  código  fuente  puede  ser  compilado 
sobre  varios  sistemas  incluyendo  Windows,  Linux  y  MacOS  X.  El  código 
fuente  para  todos  los  sistemas  y  los  binarios  precompilados  para  Windows  y 
Linux  están  disponibles  en  el  Administrador  de  archivos  de  SourceForge. 

Maxima  es  un  descendiente  de  Macsyma,  el  legendario  sistema  de  álge¬ 
bra  computacional  desarrollado  a  finales  de  1960  en  el  instituto  tecnológico 
de  Massachusetts  (MIT).  Este  es  el  único  sistema  basado  en  el  esfuerzo  vo¬ 
luntario  y  con  una  comunidad  de  usuarios  activa,  gracias  a  la  naturaleza 
del  open  source.  Macsyma  fue  revolucionario  es  sus  días  y  muchos  sistemas 
posteriores,  tales  como  Maplc  y  Mathematica,  estuvieron  inspirados  en  él. 

La  rama  Maxima  de  Macsyma  fue  mantenida  por  William  Schelter  desde 
1982  hasta  su  muerte  en  2001.  En  1998  él  obtuvo  permiso  para  liberar  el 
código  fuente  bajo  la  licencia  pública  general(GPL)  de  GNU.  Gracias  a  su 
esfuerzo  y  habilidad,  Maxima  fue  posible  y  estamos  muy  agradecidos  con  él 
por  su  dedicación  voluntaria  y  su  gran  conocimiento  por  conservar  el  código 
original  de  DOE  Macsyma  vivo.  Desde  su  paso  a  un  grupo  de  usuarios  y 
desarrolladores,  Maxima  ha  adquirido  una  gran  audiencia. 


1 


2 


Capítulo  1.  Introducción  a  Maxima:  Parte  I 


Maxima  está  en  constante  actualización,  corrigiendo  bugs  y  mejorando 
el  código  y  la  documentación.  Debido,  en  buena  parte,  a  las  sugerencias  y 
contribuciones  de  su  comunidad  de  usuarios. 

Información  acerca  de  cómo  conseguirlo,  instalarlo  y  demás  puede  encon¬ 
trarse  en  http://maxima.sourceforge.net/es/.  Se  puede  trabajar  con  Maxima 
en  línea  de  comandos  desde  la  consola,  pero  hay  dos  opciones  gráficas,  una  de 
ellas  llamada  Maxima  Algebra  System  (xmaxima)  es  bastante  antiestética, 
mientras  que  wxMaxima  (wxmaxima)  es  bastante  más  agradable  a  la  vista 
y  será  la  opción  que  utilizaremos  en  este  curso.  Centrémonos  pues  en  esta 
última  opción  gráfica  wxMaxima,  que  se  puede  descargar  de  su  página  web, 
http://wxmaxima.sourceforge.net/,  aunque  suele  venir  incluido  con  Maxima. 
En  ella,  al  igual  que  en  otros  CAS  como  Mathematica,  se  trabaja  a  partir 
de  celdas,  que  pueden  contener  más  de  una  línea  de  ejecución.  La  entrada 
(en  inglés,  input)  queda  asignada  a  una  expresión  %i)  junto  con  un  número, 
mientras  que  la  salida  (output  en  inglés)  aparece  como  %o)  y  el  mismo  núme¬ 
ro.  Nótese  que  en  wxMaxima  la  tecla  Intro  por  sí  sola  cambia  de  línea,  para 
ejecutar  una  celda  es  necesario  utilizar  la  combinación  Mayúsculas+Intro 
(shift+enter).  Este  comportamiento  se  puede  intercambiar  editando  las  pre¬ 
ferencias  de  wxMaxima. 

Cada  sentencia  o  comando  de  Maxima  puede  finalizar  con  punto  y  coma 
(;)  (wxmaxima  escribe  automáticamente  el  último  ;)  o  bien  con  dólar  ($). 
Se  pueden  escribir  varias  sentencias  una  a  continuación  de  otra,  cada  una 
de  las  cuales  finaliza  con  su  correspondiente  punto  y  coma  (;)  o  dólar  ($), 
y  pulsar  shift+enter  al  final  de  las  mismas  para  ejecutarlas.  En  el  caso  del 
punto  y  coma,  aunque  aparezcan  escritas  en  la  misma  línea  cada  una  de 
tales  sentencias  aparecerá  con  una  etiqueta  diferente.  En  cambio  si  se  usa  el 
dólar  como  finalización  de  sentencia,  las  operaciones  que  correspondan  serán 
realizadas  por  Maxima,  pero  el  resultado  de  las  mismas  no  será  mostrado, 
salvo  la  última. 

Cuando  arrancamos  Maxima  aparece  una  página  en  blanco  en  la  que 
podemos  escribir  las  operaciones  que  queremos  que  realice,  una  vez  escri¬ 
tas  hemos  de  pulsar  shift+enter  o  bien  el  enter  del  teclado  numérico  para 
ejecutar,  entonces  aparecerá  lo  que  sigue: 


(%il) 

2+4; 

(%ol) 

6 

(%i2) 

3*5 ; 

(%o2) 

15 
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C/.i3) 

7/2; 

(%o3) 

7 

2 

(7.14) 

7.0/2; 

(%o4) 

3,5 

C/.Í5) 

7. 0/2.0; 

(%o5) 

3,5 

(7.16) 

7/3; 

( %o6) 

7 

3 

(7.17) 

7/3.0; 

( %o7) 

2,333333333333334 

(7.18) 

5!  ; 

( %o8) 

120 

(7.19) 

3~4 ; 

(%o9) 

81 

(7.110) 

3**4; 

(%ol0) 

81 

Los%il,%ol,  etc.,  los  escribe  el  programa  para  indicar  el  número  de  en¬ 
trada  o  salida  correspondiente.  Las  operaciones  aritméticas  que  realiza  son 
las  siguientes: 

suma:  x  +  y  resta:  x  —  y  producto:  x  *  y 

división:  x/y  factorial:  x!  potencia:  xy  o  bien  x  *  *y 

Si  escribimos,  por  ejemplo 
(7oill)  4~200 ; 

(%oll)  258224987808690858965591917200[61úúúís]28013783143590317197 
2747493376 


El  resultado  no  pone  todos  los  dígitos,  de  hecho  nos  informa  que  ha  omi¬ 
tido  61  dígitos.  Para  saber  los  dígitos  omitidos  vamos  al  menú  Maxima, 
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Cambiar  pantalla  2D  y  escogemos  ascii.  si  ahora  repetimos  la  operación  ob¬ 
tendremos: 

(°/0il2)  set_display(  ’  ascii)  $ 

C/.Í13)  4**200 ; 

(%ol3)258224987808690858965591917200301187432970579282922351283065 

9356540647622016841194629645353280137831435903171972747493376 

C/.Í14)  2~500 ; 

(%ol4)327339060789614187001318969682759915221664204604306478948329 

1368096133796404674554883270092325904157150886684127560071009217256 

545885393053328527589376 

(7.115)  2.5*2; 

( %ol5)5,0 

Maxima  es  un  programa  de  cálculo  simbólico  y  hace  las  operaciones  en¬ 
comendadas  de  forma  exacta,  por  ejemplo  la  suma  de  fracciones  devuelve 
otra  fracción  y  lo  mismo  la  raíz  cuadrada,  a  no  ser  que  se  le  pida  usando  las 
sentencias:  “float (número)”  que  da  la  expresión  decimal  de  número  con  16 
dígitos.  La  instrucción  “número,  numer”  también  da  la  expresión  decimal 
de  número  con  16  dígitos,  en  tanto  que  “bfloat (numero)”  da  la  expresión 
decimal  larga  de  número  acabada  con  b  seguido  de  un  número  n,  que  signi¬ 
fica  multiplicar  por  10n.  La  precisión  que  nos  brinda  el  programa  se  puede 
modificar  con  la  instrucción  “fpprec:  m”  que  indica  el  número  de  dígitos  a 
utilizar.  Veamos  algunos  ejemplos: 

(7.1 16)  7pi ; 

( %ol6)  %pi 
C/.Í17)  3~200 ; 

(%ol7)265613988875874769338781322035779626829233452653394495974574 

961739092490901302182994384699044001 

(7118)  3/7+5/6; 

( %ol8)|| 

(7119)  float (7pi) ; 
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( %ol9)3, 141592653589793 
(7.120)  %e ; 

( %o20)  %e 
(0/„i22)  f  loat  (%e)  ; 

( %o22)2, 718281828459045 
(°/0i23)  f  loat  (3~200)  ; 

( %o23)2,6561398887587475£  +  95 
(7oi24)  f  loat  (3/7+5/6)  ; 

( %o24)l, 261904761904762 
(7,i25)  bf  loat  (7«pi) ; 

( %o25)3, 14159265358979360 
(7oi26)  fpprec :  100; 

(%o26)100 

(7oi27)  bf  loat  (7«pi) ; 

(%o27)3, 1415926535897932384626433832795028841971693993751058209749 
4459230781640628620899862803482534211706860 

Para  volver  al  modo  por  defecto  de  pantalla,  vamos  al  menú  Maxima, 
Cambiar  pantalla  2D  y  escogemos  xml,  como  figura  a  continuación 

(7oi28)  set_display( ’xml)$ 

(7oi29)  bf  loat  (7»pi) ; 

(%o29)  3, 1415926535897932384626433832  [43c%¿ts] 6286208998628034825342 
11706860 

(7oi29)  bf  loat  (7«pi) ; 

(%o29)  3, 1415926535897932384626433832  [42>digits]  6286208998628034825342 
11706860 

(7oi30)  set_display(  ’  ascii)  $ 


Asignaciones,  el  operador  se  utiliza  para  asignar  a  una  variable  el 
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valor  de  una  expresión  (el  signo  “=”  no  se  utiliza  para  asignación,  sino  para 
ecuaciones).  La  función  “kill”  es  usada  para  eliminar  variables  que  hayan  sido 
asignadas  previamente  (o  todas  ellas,  usando  “kill(all))”.  Veamos  algunos 
ejemplos: 

( °/o  i  3 1 )  a :  2 ;  b :  4 ;  a*b ; 

(%o31)2(%o32)4(%o33)8 
C/.Í34)  a: 4$  b:3.5$  a*b; 

(%o36)14,0 

(°/0i37)  kill  (a)  $  a*b; 

(%o38)3,5a 

C/.Í39)  kill(b)$  a*b; 

( %oA0)ab 

1.1.1.  Ayuda  en  línea,  ejemplos  y  demos 

Desde  la  línea  de  comandos  de  Maxima  podemos  obtener  ayuda  inmediata 
sobre  un  comando  concreto  conociendo  su  nombre.  Esto  es  cierto  para  la 
mayor  parte  de  los  comandos,  y  la  sintaxis  es: 

■  describe(Comando,exact)  o  bien  ?  Comando,  cuando  se  conoce  el 
nombre  exacto. 

■  describe(Comando,inexact)  o  bien  ??  Comando,  cuando  no  se 
conoce  el  nombre  exacto. 

■  describe(“”,inexact) 

Los  dos  primeros  son  equivalentes  y  también  lo  son  los  dos  segundos  (el 
espacio  de  separación  después  de  “?”  es  muy  importante).  El  quinto  lista 
todos  los  comandos  para  los  que  existe  documentación  en  línea.  De  manera 
que  las  entradas  “?  intégrate”  o  “describe  (intégrate, exact)”  dan  la  infor¬ 
mación  sobre  este  comando.  Lo  mismo  ocurre  con  “??  integrat”  o  “descri- 
be(integrat,inexact)” . 

Para  buscar  los  comandos  relacionados  con  una  cadena  se  puede  utili¬ 
zar:  “apropos( “cadena”)”,  por  ejemplo:  “apropos(“taylor”)”.  Sólo  se 
escriben  las  comillas  interiores,  en  este  caso  las  de  taylor,  no  las  exteriores 
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que  enfatizan  el  nombre  del  comando.  Para  algunos  comandos  puede  además 
obtenerse  ejemplos  de  uso  mediante  “example(Comando)”,  “example()’’ 
El  segundo  de  los  ítems  de  la  lista  anterior  muestra  la  relación  de  todos 
los  ejemplos  disponibles. 
example(sum); 
example(complex) ; 

También  existe  una  colección  de  ejemplos  de  demostración  en  forma  de  ba¬ 
tería  de  sentencias  Maxima  que  se  van  ejecutando  paso  a  paso  una  tras  otra. 
En  cada  una  de  las  etapas  es  necesario  que  el  operador  introduzca  el  punto  y 
coma  de  rigor  y  pulse  retorno  de  carro  para  pasar  a  la  siguiente.  La  ejecución 
de  dichos  archivos,  se  realiza  con  la  instrucción  “demo( Archivo. dem)”. 


1.2.  Constantes,  funciones,  asignaciones,  con¬ 
dicionales  y  bucles 

1.2.1.  Constantes  matemáticas 

Las  constantes  matemáticas  más  utilizadas  en  Maxima  se  escriben  en  la 
forma: 

%pi  =  número  pi  =  3.14159... 

%e  =  es  el  número  e  =  2.71828... 

%inf  =  es  el  infinito 

%i  =  es  la  unidad  imaginaria  =  sqrt(-l) 

%phi  =  es  el  número  áureo  =  (sqrt(5)+l)/2 

1.2.2.  Funciones  matemáticas  elementales 

Las  funciones  matemáticas  elementales  se  introducen  como  sigue: 

sqrt(x)  =  raiz  cuadrada  de  x 

exp(x)  =  exponencial  de  x 

log(x)  =  logaritmo  neperiano  de  x 

log(x) /log(b)  =  logaritmo  en  base  b  de  x 

sin(x)  =  seno  de  x 

cos(x)  =  coseno  de  x 

tan(x)  =  tangente  de  x 

sec(x)  =  secante  de  x 

csc(x)  =  cosecante  de  x 

asin(x)  =  arco  seno  de  x 
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acos(x)  =  arco  coseno  de  x 
atan(x)  =  arco  tangente  de  x 
sinh(x)  =  seno  hiperbólico  de  x 
cosh(x)  =  coseno  hiperbólico  de  x 
tanh(x)  =  tangente  hiperbólica  de  x 
asinh(x)  =  arco  seno  hiperbólico  de  x 
acosh(x)  =  arco  coseno  hiperbólico  de  x 
atanh(x)  =  arco  tangente  hiperbólica  de  x 
abs(x)  =  valor  absoluto  de  x 
entier(x)  =  parte  entera  de  x 
round  (x)  =  redondeo  de  x 

max(xl,x2,...),  min(xl,x2,...)  =  máximo,  mínimo  (xl,x2,...) 

1.2.3.  Funciones  relativas  al  cálculo  con  números  na¬ 
turales 

Para  un  número  natural  n,  podemos  señalar  las  siguientes: 
n!  =  factorial  de  n 

primep(n)  =  nos  dice  si  n  es  o  no  primo 

oddp(n)  =  nos  dice  si  n  es  o  no  impar 

evenp(n)  =  nos  dice  si  n  es  o  no  par 

factor(n)  =  da  la  descomposición  en  factores  primos  de  n 

divisors(n)  =  da  los  divisores  de  n 

remainder(n,m)  =  da  el  resto  de  la  división  de  n  entre  m 
quotient(n,m)  =  da  el  cociente  de  la  división  de  n  entre  m 
binomial(m,n)  =  es  el  número  combinatorio  m  sobre  n 

(7oi53)  7!; 

( %o53)5040 

(7,i54)  primep(37); 

( %o54)true 

(7oi55)  oddp(27)  ; 

( %o55)írue 

(7oi56)  oddp(208)  ; 

( %o56)false 
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(°/0i57)  primep(212)  ; 

( %o57)false 
C/.Í58)  oddp(208)  ; 

( %o58)false 

(7.159)  factor(3809)  ; 

(%o59)  13293 

(7.160)  13*293; 

(%o60)3809 

(70i61)  divisors (360) ; 

( %o61)l,  2,  3, 4,  5, 6,  8,  9, 10, 12, 15, 18,  20,  24,  30,  36, 40, 45, 60,  72,  90, 120, 180,  360 
(70i62)  remainder  (362 , 7) ; 

(%o62)5 

(7.163)  quotient  (362,7)  ; 

(%o63)51 

(7.164)  51*7+5; 

(%o64)362 

(7.Í65)  binomial(362,7) ; 

(%o65)  152469657972312 

1.2.4.  Funciones  relativas  al  cálculo  con  números  com¬ 
plejos 

Las  operaciones  aritméticas  entre  números  complejos  se  realizan  como  an¬ 
tes,  pero  para  un  número  complejo  z,  podemos  utilizar  también  las  siguientes 
funciones: 


rectform(z)  =  que  nos  da  la  forma  binómica  de  z 
realpart(z)  =  da  la  parte  real  de  z 
imagpart(z)  =  da  la  parte  imaginaria  de  z 
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polarform(z)  =  da  la  forma  polar  de  z 
conjugate(z)  =  da  el  conjugado  de  z 
abs(z)  =  da  el  módulo  de  z 

(°/0i66)  rectf  orm(  (l+2*°/0i)  ~3)  ; 


(%o66)  -2%i-  11 

(°/0i67)  realpart  ( (l+2*°/0i)  ~3)  ; 

(%o67)  -  11 

(°/0i68)  imagpart  ( (l+2*°/0i)  “3)  ; 

( %o68)  -  2 

(70i69)  polarf orm( (l+2*%i) ~3) ; 

(  %069)53/2  %e  £"(3  TtZl 2»  )~  %*) 

(%i70)  rectf  orm( conjúgate  ( (l+2*70i)  "3) ) ; 
(  %o70)2  %i  —  11 


(7oi71)  abs  ( (l+2*7»i)  “  (-1/2) )  ; 


( %o71) 


1 

51/1 


(7»i72)  polarf  orm(  ( 1— %i/2) *  (3+4*7,i) )  ; 


c:3/2  0/  p  %*(aían(4/3)— atan{í/2)) 

(  %o72)-  — - - - 

(7,i73)  rectf  orín  (7o) ; 


( %o73) 


53/2  %isin{atan{ 4/3)  —  atan{  1/2)) 
2 


C/.Í74) 
( %o74) 


abs  ( ( 1— %i/2)  *  (3+4*7«i) ) 

53/2 

^T 


53//2cos(aían(4/3)  —  afan(l/2)) 
2 


1.2.5.  Operadores  lógicos 

Los  operadores  lógicos  son: 
and  =  y  (conjunción) 
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not  =  no  (negación) 
or  =  o  (disyunción) 

Maxima  puede  averiguar  la  certeza  o  falsedad  de  una  expresión  mediante 
el  comando 

is(expresión)  decide  si  la  expresión  es  cierta  o  falsa 

También  podemos  hacer  hipótesis  y  olvidarnos  de  ellas  por  medio  de  los 
comandos 

assume(expresión)  =  suponer  que  la  expresión  es  cierta 
forget (expresión)  =  olvidar  la  expresión  o  hipótesis  hecha 

C/.Í75)  is  (7<8  and  9>10)  ; 

( %o75)false 

C/.Í75)  is  (7<8  and  9>10)  ; 

( %o75)false 

C/.Í76)  is  (8>9  or  5<6) ; 

( %o76)true 

C/.Í77)  is  (x~2-l>0) ; 

( %o77)unknown 

(70i78)  assume  (x>l)$  is(x~2-l>0); 

( %o79)true 

(7,i80)  forget(x>l)$  is(x~2-l>0); 

( %o81)unknown 

Como  se  observa  en  la  última  salida  al  olvidarnos  de  la  hipótesis  de  ser 
x  >  1,  ya  no  sabe  si  es  verdadera  o  falsa  la  expresión. 

1.2.6.  Definición  de  nuevas  funciones 

Utlizando  las  funciones  y  operaciones  de  Maxima  es  posible  definir  nuevas 
funciones  de  una  o  más  variables  mediante  el  uso  del  comando  en  la 

forma 


NombreFunción(xl,x2,...,xn):=  expresión 
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Veamos  algunos  ejemplos  de  funciones  escalares  y  vectoriales: 

C/.Í82)  F1  (x)  :  =x~3+x~2+x+l ; 

(  %o82)Fl(x)  :=  x3  +  x2  +  x  +  1 

Si  ahora  queremos  evaluarla  en  un  punto  basta  con  escribir 
(%i83)  F1 (3) ; 

( %o83)40 

Para  una  función  escalar  de  dos  variables  escribimos 
C/.Í84)  F2(x,y)  :=3*x~2-y~5;F2(2, 1)  ; 

(  %o84)F2(a:,  y)  :=  3x2  -  y 5  ( %o85)ll 

En  tanto  que  para  una  función  vectorial  de  tres  variables  se  pone 
(°/0i86)  F3(x,y ,z)  :  =  [x-y ,x+2*y~2+z, 3*y-z~3]  ; F3 (1 ,2,-1)  ; 

(  %o86)F3(x,  y,  z )  :=[x-y,x  +  2 y2  +  z,3y  -  z 3]  (  %o87)  [-1,  8,  7] 

Aunque  más  adelante  veremos  las  representaciones  gráficas  con  más  de¬ 
talle,  veamos  como  representar  las  funciones  escalares  de  una  variable  x  en  un 
intervalo  [a,  b]  mediante  la  instrucción  “plot2d(NombreFunción(x),[x,a,b])” 
La  representación  gráfica  la  realiza  Gnuplot  que  la  muestra  en  una  ven¬ 
tana  emergente,  la  podemos  manipular  y  guardar  en  distintos  formatos. 

C/.Í88)  plot2d(Fl(x)  ,  [x,-3,3] )  ; 

( %o88) 
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Antes  de  definir  una  nueva  función  conviene  comenzar  matando  la  fun¬ 
ción,  por  si  hubiese  sido  definida  otra  con  el  mismo  nombre  con  anterioridad, 
lo  que  se  hace  con  el  comando  “killQ”;  por  ejemplo,  si  quiero  definir  la  función 
de  dos  variables  f(x,  y)  =  x2  —  y2,  haremos  lo  que  sigue 

(%i89)  kill(f)$  f (x,y) :=x~2-y~2; 

(%o90)f(x,y)  :=  x2  -  y2 
C/.Í91)  f  (5,4)  ; 

( %o91)  9 

Su  representación  en  [a,  b]  x  [c,  d] ,  utiliza  el  comando 

“plot3d(NombreFunción(x,y) ,  [x,a,b] ,  [y,c,d] )” 

(7.192)  plot3d(f ,  [x,-l,l]  ,  [y,-l ,  1]  )  ; 

( %o92) 


Cuando  se  define  una  función  mediante  el  comando  no  se  desarrolla  la 
expresión  que  sirve  para  definirla.  Si  se  desea  que  la  expresión  se  evalúe  hay 
que  emplear  el  comando  (que  utilizamos  normalmente  en  la  programación): 

“define(NombreFun(xl,x2,...xn),  expresión)” 

La  diferencia  entre  ambas  formas  de  definir  una  función  se  ilustra  en  los 
ejemplos  siguientes: 
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C/.Í93)  killCf ,g,h,k)$ 

expr  :  cos(y)  -  sin(x) ; 
f (x,y) : =expr ; 
def ine(g(x,y) ,expr) ; 
f (a,b) ; 
g(a,b) ; 

h(x,y) : =cos(y)  -  sin(x) ; 
h(a,b) ; 

(%o94)  cos(y )  —  sin(x ) 

(%o95)  f(x,y )  :=  expr 
(%o96)  g(x,y )  :=  cos(y )  —  sin(x) 

(%o97)  cos(y )  —  sin(x) 

(%o98)  cos(b )  —  sin{a ) 

(%o99)  h(x,y )  :=  cos(y)  —  sin(x) 

(%ol00)  cos(6)  —  sin(a) 

En  caso  de  conveniencia  es  posible  cambiar  el  nombre  de  las  funciones, 
tanto  las  predefinidas  en  Maxima  como  las  definidas  por  el  usuario  mediante 
la  instrucción: 

“alias(NombreNuevol,NombreOriginall,NombreNuevo2,NombreOriginal2,...)” 

(%il01) alias (sen, sin) ; 
sen(%pi) ; 

(%ol01)[sin]  (%ol02)0 
(70il03)  sen(%pi/6) ; 

(%ol03)i 

Maxima  permite  la  definición  de  funciones  por  recurrencia,  por  ejemplo 
si  queremos  definir  el  factorial  de  un  número  natural  o  la  suma  de  los  n 
primeros  naturales  podríamos  hacerlo  como  sigue 


(°/oil04)  f  act  (n)  :  =  if  n=l  then  1  else  n*fact(n-l); 
( %ol04)/ací(?r)  :=  if  n  —  1  then  1  else  n  fact(n  —  1) 
(°/oil05)  f  act  (4)  ;  f  act  (5) ; 

(  %ol05)  24  ( %ol06)  120 
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(°/0il07)  sumatorio(n)  :=  if  n=l  then  1  else  n+sumatorio (n-1)  ; 

( %ol07)sumatorio(n)  :=  if  n  —  1  then  1  else  n  +  sumatorio{n  —  1) 
(°/0il08)  sumatorio(5)  ;  sumatorio(6)  ; 

( %ol08)  15  ( %ol09)  21 

Para  borrar  las  funciones  que  hayamos  definido  podemos  utilizar  los  co¬ 
mandos  siguientes: 

“remfunction(fl,f2,...,fn)”  que  desliga  las  definiciones  de  funciones  de 
sus  símbolos  fl,f2,...,fn,  o  bien  “remfunction(all)”  que  hace  lo  mismo  con 
todas  las  funciones  que  hayamos  definido  nosotros. 

1.2.7.  Asignaciones 

Para  asignar  valores  a  una  constante  o  variable  se  utiliza  el  comando 
Supongamos  que  queremos  calcular  a 2  +  b2  para  a  =  2  y  b  =  3,  entonces  co¬ 
menzamos  matando  los  valores  que  a  y  b  pudieran  tener  y  luego  le  asignamos 
valores  como  sigue: 

(70illO) kill (a,b) $  a : 2$  b:3$  a~2+b~2; 

(%oll3)13 

Cambie  las  asignaciones  anteriores  y  vuelva  a  efectuar  dicha  operación 
(°/0ill4) kill (a,b) $  a: 3$  b:4$  a~2+b~2; 

(%oll7)25 

En  este  otro  ejemplo  consideramos  una  función  que  depende  de  un  paráme¬ 
tro  y  asignamos  valores  al  parámetro  a  posteriori:  kill(Fl,  a)$  Fl(x)  := 
ax2  +  1;.  Comprobamos  el  valor  de  F  1(3);  obteniendo  9a  +  1. 

El  parámetro  está  presente,  por  ejemplo  al  hacer  la  derivada  cliff(Fl(x),x); 
que  devuelve  2 ax. 

Realizamos  ahora  la  asignación  de  valor  al  parámetro  a  :  2$  y  volvemos 
a  calcular  la  derivada  comparando  el  nuevo  resultado  con  el  obtenido  ante¬ 
riormente,  vemos  que  el  parámetro  ha  sido  sustituido  por  su  valor;  es  decir, 
diff(Fl(x),x);  genera  ahora  Ax. 

La  asignación  de  valores,  como  hemos  señalado,  utiliza  y  no  utiliza 
“=” .  El  símbolo  de  igualdad  se  emplea  fundamentalmente  con  las  ecuaciones, 
si  bien  también  aparece  en  las  operaciones  de  sustitución  y  evaluación  de 
expresiones. 
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Por  otra  parte,  la  asignación  de  valores  tiene  un  ámbito  de  aplicación  más 
amplio  que  establecer  el  valor  de  una  constante  en  una  fórmula,  tal  y  como 
ha  sido  utilizado  más  arriba.  Por  ejemplo,  es  posible  utilizar  el  comando  : 
para  definir  una  función,  tal  y  como  hacemos  en  los  ejemplos  que  siguen.  Si 
desea  tener  más  información  sobre  otros  posibles  usos  del  comando:  puede 
consultar  el  manual  en  línea  de  Maxima,  en  la  forma  habitual  mediante  ?  : 

(70ill8) kill (F1 , a)$  Fl(x)  :=a*x~2+l; 

(%oll9)  Fl(x)  :=  ax 2  +  1 
(%il20) F1 (3) ; 

( %ol20)  9a  +  1 

(%i  121)  dif  f  (F1  (x)  ,x) ; 

(%ol21)  2 ax 

(7oil22)a:2$  diff (Fl(x) ,x) ; 

( %ol23)  4x 

Mediante  se  puede  definir  una  función  sin  declarar  la  variable  por 
ejemplo  con  la  instrucción:  “F2:difF(Fl,x)”  calculamos  la  derivada  de  F1  y  la 
asignamos  a  una  nueva  función.  Ahora,  mediante  el  comando  “subst(x=3,F2)” 
se  realiza  una  sustitución  formal.  Otro  código  diferente  para  realizar  la  eva¬ 
luación  podría  ser  el  que  sigue: 

kill(all) $  Fl:x~2+1;  F2:diff(Fl,x);  ev(F2,  x=3); 

(7oil24)  kill  (all)  $  Fl:x~2+l;F2:diff  (Fl,x)  ; subst (x=3 ,F2)  ; 

%ol)  x2  +  1 
( %o2)  2x 
( %o3)  6 

(7.i4)  kill  (all)  $  F1 :  x~2+l ; 

F2 : diff (F1 ,x) ; 
ev(F2,  x=3) ; 

(%ol)  x2  +  l 
( %o2)  2x 
( %o3)  6 
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1.2.8.  Asumir  algo  y  olvidarse  de  ello 

Cuando  Maxima  tiene  dudas  sobre  algún  dato  que  puede  influir  en  cual 
sea  su  respuesta,  antes  de  darla  hace  preguntas,  por  ejemplo  si  tecleamos 
“integrate(exp(a*x),x,0,inf)”  aparecerá  lo  que  sigue 

(°/0i4)  intégrate (exp(a*x)  ,x,0,inf) ; 

Isa  positive,  negativa,  or  zerol 

El  comando  “assume(predicadol,predicado2...)”  permite  evitar  las 
preguntas  dando  de  antemano  las  respuestas.  Los  predicados  tan  solo  pueden 
ser  expresiones  formadas  con  los  operadores  relaciónales: 

—  igual 
#  distinto 

<  menor  que 

<  menor  o  igual  que 

>  mayor  que 

>  mayor  o  igual  que 

(°/0i5)  assume(a<0); 

intégrate (exp(a*x) ,x,0,inf) ; 

( %o5)  [a  <  0] 

(%o6)  -- 

a 

El  comando  “facts()”  permite  conocer  las  suposiciones  activas  y  con  el 
“forget (predicado)”  se  elimina  la  suposición  correspondiente  a  predicado. 

(°/oi7)  factsO; 

forget (a<0) ; 
assume(a>0) ; 

intégrate (exp(a*x) ,x,0,inf) ; 

( %o7)  [0  >  a] 

( %o8)  [a  <  0] 

( %o9)  [a  >  0] 

definí  :  integral  is  diver gent. - an  error.  Todebug  this  try  :  debugmodeitrue) 

1.2.9.  Bloques 

Las  asignaciones  se  realizan,  en  principio,  globalmente  y  afectan  a  todas 
las  sentencias  que  se  ejecuten  después  de  la  asignación  y  que  tengan  que  ver 
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con  ella.  El  comando  block,  entre  otras  cosas,  permite  limitar  el  campo  de 
acción  de  una  asignación  a  un  bloque  de  código,  en  la  forma 
“block([ui, ...,  vn\,  expri, ...,  exprm)n  o  bien 
“block(ea:pri, ...,  ea:prm)” 

El  efecto  de  la  función  evalúa  las  expresiones  secuencialmente  y  devuelve 
el  valor  de  la  última  expresión  evaluada. 

En  caso  de  usarse,  las  variables  rq, ...,  vn  son  locales  en  el  bloque  y  se  disti- 
guen  de  las  globales  que  tengan  el  mismo  nombre.  Si  no  se  declaran  variables 
locales  entonces  se  puede  omitir  la  lista.  Dentro  del  bloque,  cualquier  otra 
variable  distinta  de  vi,...,vn  se  considera  global.  Al  iniciarce,  block  guarda 
los  valores  actuales  de  las  variables  iq,  ...,vn  y  los  recupera  al  finalizar,  olvi¬ 
dando  en  cambio  los  valores  que  con  carácter  local  dentro  del  bloque  hayan 
tenido  éstas. 

Los  comandos  block  pueden  anidarse.  Las  variables  locales  se  inicializan 
cada  vez  que  se  entra  dentro  de  un  nuevo  bloque.  Las  variables  locales  de  un 
bloque  se  consideran  globales  dentro  de  otro  anidado  dentro  del  primero.  Si 
una  variable  es  no  local  dentro  de  un  bloque,  su  valor  es  el  que  le  corresponde 
en  el  bloque  superior.  Este  criterio  se  conoce  con  el  nombre  de  “alcance 
dinámico”.  El  valor  del  bloque  es  el  de  la  última  sentencia  o  el  argumento 
de  la  función  return,  que  puede  utilizarse  para  salir  del  bloque.  Veamos  un 
ejemplo  de  block 

( °/o  i  1 1 )  x:4$  y:  5$  x*y; 

block( [x,y] ,x:7,  y:8,  x*y) ; 

x*y; 

( %ol3)  20 
( %ol4)  56 
( %ol5)  20 

Como  se  observa  las  variables  x  e  y  siguen  valiendo  lo  mismo  antes  y 
después  del  block  y  diferente  dentro  del  mismo  por  haberlas  declarado  como 
variables  locales  dentro  del  block. 


1.3.  Programación  con  Maxima:  Condiciona¬ 
les  y  bucles 

En  la  programación  de  algoritmos  numéricos  es  fundamental  la  utilización 
de  condicionales  y  bucles,  los  primeros  en  Maxima  se  realizan  con  la  función 
if  (si  es  necesario,  acompañada  por  else  o  else  if),  para  más  información 
teclear  ?  if.  La  forma  básica  sería 
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“if  condición  then  acciónl  else  acciónO” 

Este  comando  si  condición  es  verdadera  ejecuta  acciónl  en  caso  contario 
es  decir  si  es  falsa  ejecuta  la  expresión  tras  el  else  o  sea  acciónO. 

Veamos  algunos  ejemplos: 

(70il7)  kill(all)$  F(x):=if  x<0  then  0  else  x~2; 
plot2d(  F (x) ,  [x,-l,l] ,  [y, -1,1]  ); 

( %ol)F(x)  :=  if  x  <  0  then  0  else  x 2 
( %o2) 


(0/oi3)  kill(all)$ 

F(x):=if  x<0  then  0  else  (if  x<l  then  x~2  else  1)  ; 
plot2d(  F(x),  [x,-l ,2] ,  [y, -1,2]  ); 


( %ol)  F(x)  if  x  <  0  then  0  else  (if  x  <  1  then  x2  else  1) 
(%o2) 
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(%i3)  kill (all) $ 

F(x):=if  (x<0)  then  0  elseif  (x>0  and  x<l)  then  x~2 
else  1;  plot2d(  F(x),  [x,-l,2],  [y, -1,2]  ); 
plot2d(  F (x) ,  [x, -1 , 2] ,  [y, -1,2]  ); 

(%ol)  F{x )  :=  ifx  <  0  then  0  elseif  ( x  >  0)  and  ( x  <  1)  then  x2  else  1 
( %o2)  La  misma  anterior. 

A  continuación  mediante  if  anidados  vamos  a  dar  una  función  que  calcula 
el  máximo  de  tres  números  dados. 

(7,13)  f(x,y,z):=if  x>=y  and  y>=z  then  x  elseif  y>=x  and  y>=  z 
then  y  else  z; 

(%o3)  f(x,y,z )  :=  if  ( x  >=  y)  and  ( y  >=  z )  then  x  elseif  ( y  >= 

x)  and  ( y  >=  z)  theii  y  else  z 

(%i4)  f (-1,5,3) ; 

( %o4)  5 

(°/0i5)  max(-l,5,3); 

( %o5)  5 

Para  los  bucles  disponemos  de  for,  que  tiene  las  siguientes  variantes: 

for  <  var  >:<  val  1  >  step  <  val2  >  thru  <  val3  >  do  <  expr  > 

for  <  var  >:<  val  1  >  step  <  val2  >  while  <  cond  >  do  <  expr  > 

for  <  var  >:<  val  1  >  step  <  val2  >  unless  <  cond  >  do  <  expr  > 

El  primer  for  desde  el  valor  inicial  valí  de  la  variable  var  la  va  incremen¬ 
tando  con  paso  val2  y  siempre  que  esta  sea  menor  o  igual  que  val3  calcula 
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expr.  En  el  segundo  caso,  partiendo  del  mismo  valor  inicial  y  con  el  mismo 
incremento,  calcula  expr  mientras  se  verifique  cond.  Y  en  el  tercero  calcula 
expr  a  no  ser  que  se  verifique  cond. 

Cuando  el  incremento  de  la  variable  es  la  unidad,  se  puede  obviar  la  parte 
de  la  sentencia  relativa  a  step,  dando  lugar  a 

for  <  var  >:<  val  1  >  thru  <  val3  >  do  <  expr  > 
for  <  var  >:<  val  1  >  while  <  cond  >  do  <  expr  > 
for  <  var  >:<  val  1  >  unless  <  cond  >  do  <  expr  > 

Cuando  no  sea  necesaria  la  presencia  de  una  variable  de  recuento  de 
iteraciones,  también  se  podrá  prescindir  de  los  for,  como  en: 

while  <  cond  >  do  <  expr  > 
unless  <  cond  >  do  <  expr  > 

Para  salidas  por  pantalla  se  utilizan  los  comandos  disp,  display  y  print, 
veremos  alguna  información  adicional  en  los  ejemplos  para  ampliar  informa¬ 
ción  utilizar  ?.  Veamos  unos  ejemplos: 

(°/0i6)  for  k:0  thru  8  do  (ángulo :k*%pi/4, print ( 

"El  valor  del  seno  de  ",  ángulo,  "es  " , sin(angulo) ) ) ; 

El  valor  del  seno  de  0  es  0 
El  valor  del  seno  de  7r/4  es  1/a/2 
El  valor  del  seno  de  7í/2  es  1 
El  valor  del  seno  de  37t/4  es  1  /  x/2 
El  valor  del  seno  de  tt  es  0 
El  valor  del  seno  de  57t/4  es  —  l/y/2 
El  valor  del  seno  de  3tt/2  es  —1 
El  valor  del  seno  de  77t/4  es  —  1  / x/2 
El  valor  del  seno  de  2tt  es  0 
(%o6)  done 

(70i7)  for  k:0  while  k<3  do  print(k); 

0 

1 

2 

( %o7)  done 

(°/0i8)  for  k:0  unless  k>3  do  print(k); 

0 

1 
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2 

3 

( %o8)done 

(%i9)  x:l; 

for  n:l  thru  9  do  x:x*n; 

( %o9)  1 
( %oltí)done 

C/.ill) 

(%oll)  362880 

C/.Í12)  x :  1$ 

n:  0$ 

while  (n<9)  do  ( 
n:n+l , 
x:x*n, 
disp(x) 

)$ 

1 

2 

6 

24 

120 

720 

5040 

40320 

362880 

(7.115)  x :  1$ 
n:  0$ 

while  (n<9)  do  ( 
n:n+l, 
x:x*n, 
disp( ’x) 

)$ 


x 

X 

X 


X 
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x 

x 

X 

X 

X 

C/.Í18)  x :  1$ 
n:  0$ 

while  (n<9)  do  ( 
n:n+l , 
x:x*n, 
display (x) 

)$ 

x  =  1 
x  =  2 
x  =  6 
x  =  24 
x  =  120 
x  =  720 
x  =  5040 
x  =  40320 
x  =  362880 

Si  queremos  sumar  los  cuadrados  de  los  100  primeros  números  naturales 
con  un  bucle  while  ...  do  escribiremos: 

( °/o i 2 1 )  suma :  0 ; 

indice : 0 ; 

while  indice<=100  do  (suma: suma+indice**2, indice : indice+1) 
print (suma) $ 

( %o21)  0 
( %o22)  0 
( %o23)  done 
338350 

Para  realizar  sumatorios,  como  no  podía  ser  de  otra  forma,  Maxima  tiene 
implcmentada  la  función  sum,  qne  adopta  la  forma:  sum(expr,i,iO,il)  que 
hace  la  suma  de  los  valores  de  expr  según  el  índice  i  varía  de  iO  a  il.  Veamos 
algún  ejemplo: 


(°/0i25)  sum(i~2, i ,  1 , 100) ; 
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( %o25)  338350 

Calcular  la  suma  8+10+12+.. .+122 

(70i26)  sum(2*i,i,4,61) ; 

( %o26)  3770 

(°/0i27)  kill(all)$  suma:0$  for  i : 8  step  2  thru  122  do  suma:  suma+i ; 
print ("8+10+12+ . . .+122  =  ",suma)$ 

( %o2)  done 

8  +  10  +  12 +  ...  +  122  =  3770 

Para  realizar  productos,  Maxima  también  tiene  implementada  la  función 
product,  que  adopta  la  forma:  product(expr,i,iO,il)  que  representa  el 
producto  de  los  valores  de  expr  según  el  índice  i  varía  de  iO  a  il.  Veamos 
algún  ejemplo: 

(°/oi4)  product  (x-2*i ,  i ,  1 ,3) ; 

( %o4)  (x  —  6)  (x  —  4)  (x  —  2) 

(°/oi5)  product (x+2*i+l, i, 0,3)  ; 

(%o5)  (x  +  l)(x  +  3)(x  +  5)(r  +  7) 

Veamos  otro  ejemplo,  vamos  a  generar  los  20  primeros  términos  de  la 
sucesión  de  Fibonacci,  dada  por  yi  =  1,  y2  —  1  e  yn  —  yn-i  +  yn-h 
definimos  por  recurrencia  y  utilizamos  un  bucle  para  presentar  los  resultados 
de  distintas  formas  (omitimos  los  números  de  las  salidas): 

(°/oi6)  f(n):=  if  (n=l  or  n=2)  then(l)  else  (f (n-2)+f (n-1) )  $ 

for  n:l  thru  20  do  disp(f(n))$ 

1 

1 

2 

3 

5 

8 

13 

21 

34 
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55 

89 

144 

233 

377 

610 

987 

1597 

2584 

4181 

6765 

(°/0i8)  f(n):=  if  (n=l  or  n=2)  then(l)  else  (f (n-2)+f (n-1) )  $ 

for  n:l  thru  20  do  display(f (n) )$ 


/( 1)  =  1 
/( 2)  =  1 
/( 3)  =  2 
/( 4)  =  3 
/(5)  =  5 
/( 6)  =  8 
/(7)  =  13 
/( 8)  =21 
/  (9)  =  34 
/( 10)  =  55 
/(ll)  =  89 
/ (12)  =  144 
/( 13)  =  233 
/(14)  =  377 
/(15)  =  610 
/( 16)  =  987 
/(17)  =  1597 
/(18)  =  2584 
/(19)  =  4181 
/(20)  =  6765 


(7.110)  f(n):=  if  (n=l  or  n=2)  then(l)  else  (f (n-2)+f (n-1) )  $ 
for  n: 1  thru  20  do  print("y(" ,n, ")=" ,f (n))$ 


y(i)  =  i 

3/(2)  =  1 

9(3)  =  2 
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y{  4)  =  3 
y{ 5)  =  5 
y( 6)  =  8 
y( 7)  =  13 
y(8)  =  21 
2/(9)  =  34 
2/(10)  =  55 
2/(11)  =  89 
2/(12)  =  144 
2/(13)  =  233 
2/(14)  =  377 
2/(15)  =  610 
2/(16)  =  987 
2/(17)  =  1597 
2/(18)  =  2584 
2/(19)  =  4181 
2/(20)  =  6765 


Más  ejemplos  de  programación  con  block  (en  los  que  utilizamos  las  va¬ 
riables  globales  a  y  x)  y  bucles,  para  realizar  la  suma  de  los  inversos  de 
los  i  primeros  cuadrados  y  el  factorial  de  i  e  imprimirlos  con  un  literal  y  el 
resultado  correspondiente 

(°/0il2)  f  (n)  :  =block( 
a:  0 , 
x:  1, 

for  i:l  thru  n  do  print ( ’ sum(l/j ~2 , j , 1 , i) , "=" , 
a: a+l/i~ 2 , ",  ",  i x : x*i) ) $ 


(7.113)  f  (5)  ; 


v-  1 

Ey^1.  11  =  1 

J=1  J 

Al  5 

=  i 2!  =  2 

j= i  J 

Al  49 
|í?  =  36-  3!  =  6 

V*  ®  4!  =24 
/  2  144> 

J=1  J 
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£ 


5269 

3600 
j=i 

( %ol3)  done 


,  5!  =  120 


(7oil4)  a; 

x; 

kill(a,x)$ 

a; 

x; 

f0f  5269 

(%ol4)  - 

V  ;  3600 
(%ol5)  120 

(%ol7)  a 

(%ol8)  x 

Se  observa  que  las  variables  a  y  x  han  sido  modificadas  dentro  del  block 
y  conservan  su  valor  cuando  se  sale  del  mismo.  En  cambio  en  el  siguiente 
bloque  las  variables  [a,x]  se  declaran  como  locales  y  cuando  se  sale  del  block 
tiene  los  valores  que  tuvieran  inicialmente. 

(°/0il9)  f  (n)  :=block(  [a,x]  , 
a:  0, 
x:  1, 

for  i : 1  thru  n  do  print ( ’ sum(l/j ~2 , j , 1 , i) , "=" , 
a:a+l/i~2, " ,  " ,i, " !=" ,x:x*i))$ 

C/.Í20)  f(5); 


Zj2  =  1’ 

j=l J 

Ai  5 
£^  =  i- 2!  =  2 

i=i  J 

Al  49 

£^  =  s-  3!  =  6 


;.1  3 

¿i 

1=1  J 
5  1 

£75 

j= 1 J 


36 

205 

144’ 

5269 

3600 


4!  =  24 


,  5!  =  120 
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( %o20)  done 

c/.i2i)  a;*; 

( %o21)  a 
( %o22)  x 

1.4.  Variables  opcionales  y  funciones  útiles 
para  la  programación 

Entre  las  muchas  variables  opcionales  de  Maxima,  repararemos  de  mo¬ 
mento  sólo  en  las  siguientes: 

■  numer 

■  showtime 

■  powerdisp 

Podemos  pedir  información  sobre  ellas  tecleando  ?  seguido  de  la  variable. 
Por  defecto  todas  ellas  tienen  asignado  el  valor  false  y  ver  que  ocurre  si  las 
declaramos  como  true.  Por  ejemplo  si  declaramos  “numer:true”  entonces 
algunas  funciones  matemáticas  con  argumentos  numéricos  se  evalúan  como 
decimales  de  punto  flotante.  También  hace  que  las  variables  de  una  expresión 
a  las  cuales  se  les  ha  asignado  un  número  sean  sustituidas  por  sus  valores 
y  activa  la  variable  “float”.  Para  volver  a  su  valor  predeterminado  hay  que 
reiniciar  Maxima  o  bien  declararlas  como  “false” .  Si  hacemos  la  declaración 
de  la  variable  “showtime:true”  se  muestra  el  tiempo  de  cálculo  con  la  salida 
de  cada  expresión,  como  antes  sigue  así  hasta  que  se  reinicie  el  programa  o 
se  declare  como  “false”.  Asimismo,  si  “powerdisp”  vale  ‘true’,  se  muestran 
las  sumas  con  sus  términos  ordenados  de  menor  a  mayor  potencia.  Así,  un 
polinomio  se  presenta  como  una  serie  de  potencias  truncada  con  el  término 
constante  al  principio  y  el  de  mayor  potencia  al  final.  En  relación  con  la  varia¬ 
ble  “showtime”  existe  la  función  “time  (  %ol,  %o2,  %o3,  ...)”  que  devuelve 
una  lista  de  los  tiempos,  en  segundos,  que  fueron  necesarios  para  calcular  los 
resultados  de  las  salidas  <%ol’,<%o2’,  ‘  %o3’,  ....  los  tiempos  devueltos  son 
estimaciones  hechas  por  Maxima  del  tiempo  interno  de  computación.  La  fun¬ 
ción  “time”  sólo  puede  utilizarse  para  variables  correspondientes  a  líneas  de 
salida;  para  cualquier  otro  tipo  de  variables,  “time”  devuelve  “unknown” . 
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1.5.  Aritmética  exacta  versus  aritmética  de 
redondeo 


Como  dijimos  al  principio  Maxirna  es  un  programa  de  cálculo  simbólico 
y  hace  las  operaciones  encomendadas  de  forma  exacta,  por  ejemplo  la  su¬ 
ma  de  fracciones  devuelve  otra  fracción  y  lo  mismo  la  raíz  cuadrada  u  otras 
funciones  cuyo  resultado  no  sea  un  entero,  a  no  ser  que  se  le  pida  mediante 
float(número)  o  número,  numer,  que  dan  la  expresión  decimal  de  número 
con  16  dígitos  o  también  con  bfloat (numero)  que  da  la  expresión  decimal 
larga  de  número  acabada  con  b  seguido  de  un  número  n,  que  significa  mul¬ 
tiplicar  por  10".  Pero  trabajar  en  aritmética  exacta  no  es  conveniente  en 
Cálculo  Numérico,  pues  el  tiempo  empleado  en  los  cálculos  aumenta  consi¬ 
derablemente,  no  siendo  proporcional  al  número  de  operaciones  efectuadas 
y  en  muchas  ocasiones  aunque  Maxirna  calcule  las  operaciones  encomenda¬ 
das  no  llega  a  mostrar  los  resultados.  Veamos  lo  que  acabamos  de  afirmar 
en  los  siguientes  ejemplos  (ejercicio  n°  13  de  los  propuestos  al  final  de  esta 
práctica),  en  los  que  se  calcula  la  suma  de  los  inversos  de  los  cuadrados  de 
los  n  =  100, 1000, 10000  primeros  números  naturales  en  aritmética  exacta  y 
se  muestra  el  tiempo  de  cálculo  empleado  en  realizar  dicha  suma: 

(70il)  numer  :false; 

(%ol)  false 

(7oi2)  showtime :  true$  sum  (l/i~2 ,  i ,  1 , 100)  ; 

Evaluation  took  0,0000  seconds  (0,0000  elapsed ) 

Evaluation  took  0,0000  seconds (0,0000  elapsed) 

( %o3) 

15895086941330378731122979285 • • • 3709859889432834803818131090369901 
9721861444343810305896579766 • • • 5746241782720354705517986165248000 
(%i4)  sum  (1/1-2,1,1,1000); 


Evaluation  took  0,0200  seconds  (0,0200  elapsed ) 

(;/  83545938483149689478187[820í%íts]58699094240207812766449 

^  °°  ’  50820720104325812617835[820digíís]014531 18476390400000000 
(7oi5)  sum  (1/1-2,1,1,10000); 


Evaluation  took  0,3500  seconds(0,3500  elapsed ) 

54714423173933343999582  [8648digits]  7149175649667700005717 

'  °°  ’  33264402841837255560349  [8648dígífs] 9586372485120000000000 


(7oi6)  sum  (1/1-2,1,1,100000); 
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Evaluation  took  20.5300  seconds  (20.5300  elapsed)  «  ¡Expresión  excesiva¬ 
mente  larga  para  ser  mostrada!  » 

En  general,  los  ordenadores  trabajan  en  aritmética  de  redondeo,  también 
llamada  de  punto  flotante,  con  un  número  fijo  k  de  dígitos;  esta  aritmética 
tiene  propiedades  algo  distintas  de  las  habituales,  por  ejemplo  la  suma  deja 
de  ser  asociativa,  hay  números  no  nulos  que  al  ser  sumados  a  otro  no  alteran 
la  suma,  se  produce  la  pérdida  de  cifras  significativas  al  hacer  la  diferencia 
de  números  próximos,  etc.;  pero  se  suelen  obtener  resultados  satisfactorios 
en  un  tiempo  razonable,  en  general  muchísimo  menor  que  en  la  aritmética 
exacta  y  los  tiempos  empleados  tienden  a  ser  proporcionales  al  número  de 
operaciones  realizadas.  Recordemos  también  que  por  defecto  Maxima  trabaja 
en  aritmética  exacta,  de  manera  que  si  queremos  que  lo  haga  en  aritmética 
de  redondeo  podemos  declararlo  mediante  numer:true.  Veamos  diversos 
ejemplos  con  el  anterior  sumatorio: 

(°/0i7)  numer:true$  sum  (l/i~2 , i ,  1 , 100)  ; 

Evaluation  took  0,0000  seconds (0,0000  elapsed ) 

Evaluation  took  0,0000  seconds(0,0000  elapsed ) 

( %o8)  1,634983900184892 

(0/„i9)  sum  (1/1-2,1,1,1000)  ; 

Evaluation  took  0,0100  seconds  (0,0 100  elapsed ) 

( %o9)  1,643934566681561 

C/.Í10)  sum  (1/1-2,1,1,10000); 

Evaluation  took  0,0500  seconds(0, 0500  elapsed ) 

( %ol0)  1,644834071848065 

(7„ill)  sum  (1/1-2,1,1,100000); 

Evaluation  took  0,3700  seconds  (0,3700  elapsed ) 

( %oll)  1,644924066898243 

Se  observa  que  la  aritmética  de  redondeo  es  mucho  más  rápida  que  la 
exacta.  Seguidamente,  vamos  a  aumentar  el  número  de  términos  en  el  su¬ 
matorio  anterior  a  1,2,4  u  8  millones  para  ver  como  el  tiempo  de  cálculo 
empleado  tiende  a  ser  proporcional  al  número  de  operaciones  realizadas,  pri¬ 
mero  la  ponemos  en  punto  flotante  de  16  cifras,  luego  mostramos  el  tiempo 
de  cálculo  y  realizamos  los  sumatorios  pedidos  (se  trata  del  ejercicio  n°  14 
de  los  propuestos  al  final  de  este  tema): 


1.5.  Aritmética  exacta  versus  aritmética  de  redondeo 
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( °/o i  1 2 )  numer :  true ; 

Evaluation  took  0,0000  seconds (0,0000  elapsed ) 

( %ol2)  true 

(70il4)  showtimertrue; 

Evaluation  took  0,0000  seconds (0,0000  elapsed ) 

( %ol4)  true 

C/.Í15)  sum  (l/i~2,i,l,  1000000)  ; 

Evaluation  took  3,3980  seconds( 3,4000  elapsed ) 

(%ol5)  1,644933066848771 

C/.Í16)  sum  (l/i~2,i, 1,2000000) ; 

Evaluation  took  6,5300  seconds( 6,5400  elapsed ) 

(%ol6)  1,644933566848396 

C/.Í17)  sum  (l/i~2, i, 1,4000000); 

Evaluation  took  12,5300  seconds(  12,5400  elapsed ) 

( %ol7)  1,644933816848455 

C/.Í18)  sum  (l/i~2,i,  1,8000000)  ; 

Evaluation  took  24,6100  seconds( 24,6200  elapsed) 

(%ol8)  1,644933941848658 

Se  observa  el  crecimiento  lineal  del  tiempo  de  CPU  en  la  aritmética  de 
redondeo  (lo  que  se  pone  de  manifiesto  con  la  gráfica  discreta  de  tiempos  em¬ 
pleados  frente  al  número  de  operaciones),  no  ocurre  lo  mismo  en  la  aritmética 
exacta. 

(°/0il9)  wxplot2d(  [discrete ,  [[1000000,  3.398]  ,  [2000000,  6.53], 
[4000000,12.53] ,  [8000000 , 24 . 61] ]] , [style ,points] ) ; 


En  el  comando  wxplot2d( [discrete,  [[1000000,  3. 398], [2000000,  6.53], 
[4000000,12.53],  [8000000, 24.61]]], [style, points])  ,  el  prefijo  wx  hace  que 
lo  dibuje  en  la  pantalla,  el  término  discrete  le  informa  del  tipo  de  dibujo,  los 
puntos  se  introducen  por  pares  y  style  le  informa  que  es  un  gráfico  de  puntos. 
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Figura  1.1:  Crecimiento  lineal  del  tiempo  de  CPU  en  aritmética  de  redondeo 


1.6.  Épsilon  de  máquina 

Cuando  trabajamos  en  aritmética  de  redondeo,  conviene  recordar  que 
denominamos  épsilon  de  máquina  e,  al  número  positivo  más  pequeño  que 
al  ser  sumado  a  otro  número  cualquiera  a  verifica  que  e  +  a  >  a,  de  manera 
que  todo  número  positivo  e'  menor  que  e  verifica  que  e'  +  a  =  a.  Se  trata 
pues  de  hallar  el  primer  número  positivo  e  tal  1  +  e  >  1,  en  base  2  será  de 
la  forma  0,0000000  01,  luego  una  potencia  de  exponente  negativo  de  2, 

hemos  de  hallar  pues  el  primer  número  n  tal  que  1  +  2~n  =  1,  en  aritmética 
de  punto  flotante,  en  cuyo  caso  el  cero  de  máquina  será  2~(n~1^  =  2(-~n+1') 
y  puede  obtenerse,  por  ejemplo,  con  el  programa  (resuelve  el  ejercicio  n°  15 
siguiente): 

(°/0i21)  kill(all)$  fpprec:20$  n:0$  while  (1 .0+2“  (-n)>l . 0) 
do  (print("  Para  n  =  ",n,  "es  1 . 0+2“ (-" ,n, ")  =  ", 
bf loat ( 1+2“ (-n) ) , "  >  l"),n:n+l)$  print  ("  El  épsilon  de 
máquina  es  2~(",-n+l,")  =  " ,float(2“(-n+l)))$ 

Salida: 

Para  n  =  0  es  1,0  +  2~°  =  2,060  >  1 
Para  n  =  1  es  1,0  +  2_1  =  1,560  >  1 
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2560  >  1 
12560  >  1 
062560  >  1 
0312560  >  1 
01562560  >  1 
007812560  >  1 
0039062560  >  1 
00195312560  >  1 
1,000976562560  >  1 
1,0004882812560  >  1 
1,00024414062560  >  1 
1,000122070312560  >  1 
1,0000610351562560  >  1 
1,00003051757812560  >  1 
1,000015258789062560  >  1 
1,0000076293945312560  >  1 
1,00000381469726562560  >  1 
1,000001907348632812560  >  1 
1,000000953674316406360  >  1 
1,000000476837158203160  >  1 
1,000000238418579101660  >  1 
1,000000119209289550860  >  1 
1,000000059604644775460  >  1 
1,000000029802322387760  >  1 
1,000000014901161193960  >  1 
1,000000007450580596960  >  1 
1,000000003725290298560  >  1 
1,000000001862645149260  >  1 
1,000000000931322574660  >  1 
1,000000000465661287360  >  1 
1,000000000232830643760  >  1 
1,000000000116415321860  >  1 
1,000000000058207660960  >  1 
1,000000000029103830560  >  1 
1,000000000014551915260  >  1 
1,000000000007275957660  >  1 
1,000000000003637978860  >  1 
1,000000000001818989460  >  1 
1,000000000000909494760  >  1 
1,000000000000454747460  >  1 
1,000000000000227373760  >  1 
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Para  n  =  43  es  1,0  +  2"43  =  1,000000000000113686860  >  1 

Para  n  =  44  es  1,0  +  2"44  =  1,000000000000056843460  >  1 

Para  n  =  45  es  1,0  +  2"45  =  1,000000000000028421760  >  1 

Para  n  =  46  es  1,0  +  2~46  =  1,000000000000014210960  >  1 

Para  n  =  47  es  1,0  +  2“47  =  1,000000000000007105460  >  1 

Para  n  =  48  es  1,0  +  2“48  =  1,000000000000003552760  >  1 

Para  n  =  49  es  1,0  +  2“49  =  1,000000000000001776460  >  1 

Para  n  =  50  es  1,0  +  2“50  =  1,000000000000000888260  >  1 

Para  n  =  51  es  1,0  +  2“51  =  1,000000000000000444160  >  1 

Para  n  =  52  es  1,0  +  2~52  =  1,00000000000000022260  >  1 
El  épsilon  de  máquina  es  2-52  =  2,22044604925031316  —  16. 

Notemos  que  al  poner  1.0  en  el  programa  anterior,  este  fuerza  a  Maxima 
a  trabajar  en  aritmética  de  redondeo.  Otra  forma  de  obtener  el  épsilon  de 
máquina  la  da  el  programa: 

(70i5)  kill(all)$  épsilon:  1.0$ 

while  ( (l+epsilon/2) >1)  do( 
épsilon : epsilon/2) $ 

print("El  épsilon  de  máquina  de  Maxima:  " , float (épsilon) )$ 
Salida:  El  épsilon  de  máquina  de  Maxima:  2,2204460492503131  •  1CT16. 

Podemos  preguntar  si  el  número  hallado  cumple  la  definición  en  la  forma 
(%i6)  is  (1+2 . 2204460492503131*10~-16>1) ; 

( %o6)  true 

(%i7)  is  (l+(2 . 220446049250313 1* 10 16 ) /2>1) ; 

( %o7)  false 

1.7.  Programas  para  el  método  de  bipartición 

Veamos  un  ejemplo  de  programación  con  block,  creado  por  J.  Rafael 
Rodríguez  Galván,  que  realiza  una  utilización  más  elaborada  del  comando 
block  para  obtener  los  ceros  aproximados  de  una  función  continua  que  cambia 
de  signo  en  un  intervalo.  Aparecen  en  él  otros  comandos  como  condicionales 
y  similares  propios  de  programación  más  avanzada,  cuyo  significado  el  lector 
que  conozca  el  método  de  bipartición  será  capaz  de  comprender. 


1.7.  Programas  para  el  método  de  bipartición 
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(7>i23)  biparticion(f_objetivo, a, b, épsilon)  :  = 
block( 

if(  sign(f_objetivo(a) )  =  sign(f_objetivo(b) )  ) 
then  (print(" ERROR,  f  tiene  el  mismo  signo  en  a 
y  en  b"),  return(f alse)  ) 
else  do  (c:(a+b)/2, 

if (abs (f _objetivo(c) )<epsilon) 
then  return(c) , 

if (sign(f .objetivo (a) )=sign (f .objetivo (c) ) ) 
then  a:c  else  b:c  ) 

)$ 

Este  programa  aproxima  la  raíz  de  una  ecuación  f(x)  =  0,  cuando  /  es 
continua  y  toma  signos  opuestos  en  los  extremos,  si  /  toma  el  mismo  signo 
sale  con  un  mensaje  de  error.  En  otro  caso,  el  programa  para  cuando  el  valor 
en  un  cierto  punto  medio  es  menor  que  el  épsilon  dado.  Veamos  seguidamente 
sendos  ejemplos  de  aplicación. 

Utilizando  el  programa  anterior,  calculamos  ahora  el  cero  de  la  función 
f(x )  :=  (2a:)2  —  e~x,  en  el  intervalo  [0,1],  parando  el  programa  cuando  el 
valor  de  la  función  f(x)  en  un  cierto  punto  medio  c  es  menor  que  0,01  y 
mostrando  ese  punto  intermedio  c,  como  valor  aproximado  de  la  raíz. 

(°/0i24)  f  (x)  :  =  (2*x)-2-exp(-x)$ 

biparticion(f ,0 , 1 , 0 . 01) ,  numer; 

( %o25)  0,40625 

Si  aplicamos  el  anterior  a  la  ecuación  x3  —  x  —  1  =  0  en  el  intervalo  [1,2], 
tomando  épsilon  =  5  •  10~16,  obtendremos: 

(°/0i26)  kill(f )$  f  (x)  :  =  x~3-x-l$ 

bipartición  (f,l,2,5*10~(-16)) , numer ; 

(%o28)  1,324717957244746 

Vamos  a  rehacer  el  programa  anterior  para  calcular  la  raíz  de  f(x)  =  0 
en  el  intervalo  [a,  b],  deteniendo  la  ejecución  cuando  el  valor  absoluto  de 
la  función  en  un  punto  medio  de  algún  intervalo  generado  en  el  proceso 
de  bipartición  sea  menor  que  el  épsilon  de  máquina  (2,2204460492503131  • 
10~16)(en  cuyo  caso  daremos  como  salida  este  punto  como  la  raíz  exacta  para 
wxmaxima)  o  cuando  la  longitud  del  enésimo  subintervalo  sea  menor  que  el 
épsilon  que  hayamos  escogido  (salida  que  llamaremos  la  raíz  aproximada). 
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(°/0i29)  biparticionl(f_objetivo,a,b,epsilon)  :  = 
block( 

if(sign(  f_objetivo(a) )  =  sign(f_objetivo(b) )  ) 
then  (print ( "ERROR,  f  tiene  el  mismo  signo  en  a 
y  en  b"),  return(f alse)  ) 

else  do  (  c:(a+b)/2,  if (  abs (f .objetivo (c) ) <= 

2 . 2204460492503131*10“-16)then  return( (print 
("La  raíz  exacta  para  wxmaxima  es  c  =  ",c))), 
if  (b-a<epsilon)then  return(print("La  raíz 
aproximada  es  ",  (a+b)/2,"  y  f (" , (a+b)/2, ")  =  ", 
f ( (a+b)/2) ) ) 
else  if 

(sign(f_objetivo(a) )  =  sign(f _objetivo(c) ) ) 
then  a:c  else  b:c 
) 

)$ 

(%i30)  kill(f )$  f (x) : =  x~3-x-l$ 

biparticionl (f, 1,2, 5* 10“ (-15)) ,numer  $ 

La  raíz  aproximada  es  1,324717957244745  y  /(l, 324717957244745)  = 

-2,6645352591003757^  -  15. 

C/.Í33)  kill (f ) $  f(x):=  x“3-x-l$ 

biparticionl (f,l,2,5*10“(-16)) ,numer  $ 

La  raíz  exacta  para  wxmaxima  es  c  =  1,324717957244746 

C/.Í36)  kill(f  )$  f  (x)  :  =  x“3-x-l$ 

biparticionl (f, 1,2, 5* 10“ (-17)) ,numer  $ 

La  raíz  exacta  para  wxmaxima  es  c  =  1,324717957244746 

Calculemos  ahora  la  raíz  con  el  comando  realroots”  (que  da  aproxima¬ 
ciones  racionales  de  las  raíces  reales  de  un  polinomio). 

(°/0i39)  realroots  (x“3-x-l=0)  ,numer; 

(%o39)  [x  =  1,324717968702316] 

C/.Í40)  f  (1.324717968702316)  ; 
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(%o40)  4,8862331736287956£  -  8 

A  continuación,  calculando  el  valor  de  /  en  las  últimas  aproximaciones  ob¬ 
tenidas,  vemos  que  nuestro  método  da  mejor  solución  que  el  que  lleva  incorpo¬ 
rado  Maxima,  a  no  ser  que  se  modifique  la  variable  opcional  “rootsepsilon” , 
cuyo  valor  por  defecto  es  9,9999999999999995  •  10-8. 

(70i41)  f  (1.324717957244746)  ; 

(%o41)  2,220446049250313177  -  16 


1.8.  Ejercicios  propuestos 


Completar  con  Maxima  los  ejercicios  siguientes: 

1.  Calcular:  2+1/7+34,  y/l  +  v^+v^,  \¡2  +  \/2  +  v^+641/3,  [(^)-3+ 
6/7]3,  cos(tt/4),  log(2),  log10(40),  i2,  en\  log(-2)  y  log(-¿). 

2.  Calcular  3A/Í^e*^_arcíaíl(13//15^,  ¿ar  sus  formas  binómica,  polar,  su  módu¬ 
lo  y  su  argumento. 

3.  Obtener  en  la  misma  celda  log(7r/4),  log(2)  y  a/3  en  aritmética  exacta 
y  en  coma  flotante. 

4.  Calcular  la  \/5  con  80  dígitos. 

5.  Obtener  el  logaritmo  en  base  7  de  7893412350346789670025543210589 . 

en  los  puntos  suspensivos  figurará  el  número  de  tu  DNI. 

6.  Calcular  en  aritmética  exacta  y  en  coma  flotante  arctanh(  1),  el  coseno, 
seno  y  exponencial  de  i  y  log(— e). 

7.  ¿Averiguar  qué  número  es  mayor  100  0999  o  9991000?. 

8.  Define  la  función  f(x)  =  ~^e~x2^2  Y  calcula  /( 1)  tanto  en  aritmética 
exacta  como  en  coma  flotante  (Utiliza  la  opción  del  menú  -  Numérico 
A  real;  observar  que  la  opción  -  Conmutar  salida  numérica  hará  que 
todas  las  salidas  sean  en  coma  flotante). 


9.  Escribir  un  programa  que  dados  tres  números  los  ordene  de  mayor  a 

73231844868435875  ,r  cosh( 3) 

3 


menor.  Aplicarlo  a  los  tres  siguientes:  7 r,  y 


10.  Utilizando  un  bucle  for,  escribe  una  función  que  nos  de  la  suma  de  los 
cuadrados  de  los  100  primeros  números  naturales,  hacerlo  también  con 
el  comando  sum. 
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11.  Utilizar  un  bucle  for  para  poner  de  manifiesto  la  acumulación  de  los 
errores  de  redondeo,  sumando  n  veces  la  fracción  A  =  0,1  (que  vimos 
era  un  número  periódico  en  base  2),  tomando  n  =  1, 10, 100, 1000, 10000, 
100000, 1000000,  obtener  el  error  absoluto  y  relativo  y  observar  la  pérdi¬ 
da  de  cifras  significativas  de  cada  resultado. 

12.  Calcula  usando  un  bucle  la  n  -A-r. 

13.  Averiguar  el  tiempo  de  CPU  utilizado  por  tu  ordenador  para  calcular 

la  suma  de  los  n  primeros  términos  de  la  serie  \  cuando 

n  =  100, 1000, 10000, 100000  en  aritmética  exacta  y  de  coma  flotante 
(Para  mostrar  tiempo  de  CPU  poner  showtime:  true). 

14.  En  aritmética  de  coma  flotante  comenzando  por  n  =  1000000  ve  do¬ 
blando  los  valores  de  n  en  el  anterior  hasta  llegar  a  n  —  8000000  y 
comprueba  el  crecimiento  lineal  del  tiempo  de  CPU  requerido  (no  se 
cumple  para  aritmética  exacta). 

15.  Se  llama  épsilon  de  máquina  al  menor  número  positivo  e  tal  qne  1  +  e  > 
1,  determinar  el  epsilón  de  máquina  con  Maxima. 


Capítulo  2 

Introducción  a  Maxima:  Parte 

II 

2.1.  Álgebra 

2.1.1.  Listas 

Las  listas  son  objetos  básicos  a  la  hora  de  representar  estructuras  de  da¬ 
tos;  de  hecho,  toda  expresión  de  Maxima  se  representa  internamente  como 
una  lista,  lo  que  no  es  de  extrañar  habida  cuenta  de  que  Maxima  está  pro¬ 
gramado  en  Lisp  (List  Processing).  De  ahí  que  Maxima  herede  la  potencia 
y  versatilidad  en  el  manejo  de  listas,  que  se  utilizan  de  forma  nativa  como 
bloques  de  construcción  de  conjuntos  de  valores  numéricos  o  simbólicos. 

En  Maxima  las  listas  se  pueden  definir  como  series  de  expresiones  sepa¬ 
radas  por  comas  y  encerradas  entre  corchetes.  Los  elementos  de  una  lista 
pueden  ser  también  listas,  expresiones  matemáticas  o  cadenas  de  caracteres 
entre  comillas. 

En  esta  sección  nos  ocuparemos  brevemente  de  la  generación  y  manipu¬ 
lación  de  listas.  Veamos  un  ejemplo: 

(°/0il)  listal :  [1 ,  2+1/2,  [a,2,c]  ,l+3*x+y~2]  ; 

(%ol)  [1,  )j,  [a,2,c],y2  +  3x  +  1] 

Se  puede  acceder  a  los  10  primeros  elementos  de  una  lista  mediante  las 
funciones  “first”,  “second”,....,  “tenth”,  y  para  el  último  se  accede  con 
“last” .  Por  ejemplo 

(°/0i2)  second(listal)  ;  last  (listal) ; 
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(%o2)  ^  ( %o3)  2/2  +  3x  +  1 

También  se  puede  indexar  mediante  corchetes  el  elemento  enésimo,  por 
ejemplo  el  tercer  elemento  de  lista  se  puede  pedir  en  la  forma 

C/.i4)  listal  [3]  ; 

( %o4)  [a,  2,  c] 

Con  las  listas  pueden  hacerse  las  operaciones  aritméticas  básicas  de  su¬ 
mar,  restar,  multiplicar  y  dividir,  término  a  término,  cuando  tienen  igual 
longitud.  Se  puede  hacer  el  producto  escalar  de  vectores  (listas),  así  como 
potencias  y  radicales. 

(°/0i5)  print  ("a  =  ",a:  [1,2, 3,4,5]  )$  printp'b  =  ",  b:  [6, 7, 3, 9,0]  )$ 
print ("a  +  b  =  ",a+b)$  print ("a*b  =  ",a*b)$ 

a  =  [1,  2, 3, 4,  5]  b  =  [6,  7, 3,  9,  0]  a  +  b  =  [7,  9,  6, 13,  5]  a  *  b  =  [6, 14,  9,  36,  0] 
C/.Í10)  a~2;b/a; 

(%ol0)  [1,4,9,16,25]  (%oll)  [6,  |,1,  |,  0] 

C/.Í12)  7*a; 

(%ol2)  [7, 14,21,28,35] 

El  producto  escalar  de  los  vectores  a  y  b  se  muestra  a  continuación 
(°/0il3)  print ( "a. b  =  ",a.b)$ 

(%ol3)  a.b  =  65  Diferente  de  este  otro 
(°/0il4)  print ("a*b  =  ",a*b)$ 

( %ol4)  a*b  =  [6,14,9,36,0] 

Las  listas  se  pueden  manipular  de  muchas  maneras,  por  ejemplo  con  la 
función  “delete”se  puede  suprimir  un  elemento  de  una  lista,  en  tanto  que 
“cons”  devuelve  la  lista  que  resulta  de  añadir  un  elemento  al  principio  de  una 
lista,  y  se  pueden  unir  listas  mediante  el  comando  “append” 

(°/0il5)  ar :delete(3,a)  ; 

(%ol5)  [1,2, 4,  5] 

(°/0il6)  aa:  cons  (°/„e ,  a) ; 


2.1.  Álgebra 


41 


(%ol6)  [e,  1,2,  3, 4,  5] 

(°/0il7)  append(ar,aa) ; 

(%ol7)  [1,  2, 4,  5,  e,  1,2,  3, 4,  5] 

(7.118)  1:  [1,2, 3, 3, 3, 4, 5]  ; 

(%ol8)  [1,2,  3,  3,  3, 4,  5] 

(7.Í19)  Ir :delete(3,l)  ; 

(%ol9)  [1,2, 4,  5] 

(7.Í20)  kill  (all)  $  11:  [1,2, 3, 4,5]$  12:  [a,b,  c,d,e]  $  11+12; 

(%o3)  [a  +  1,  b  +  2,  c  +  3,  d  +  4,  e  +  5] 

Podemos  construir  listas  mediante  el  uso  del  comando  “makelist” ,  forma¬ 
das  por  un  número  finito  de  expresiones  que  se  ajusten  a  un  término  general. 
Esta  función  está  disponible  en  wxMaxima  a  través  del  menú  “Algebra”, 
“Construir  lista...” .  Como  se  aprecia,  sus  parámetros  son,  respectivamente, 
el  término  general,  la  variable  utilizada  como  índice  y  dos  números  enteros 
que  expresan  el  rango  en  que  varía  este  índice  de  forma  consecutiva. 

(7.14)  lista: makelist (3*i+l , i ,0, 10)  ; 

( %o4)  [1, 4,  7, 10, 13, 16, 19,  22,  25,  28, 31] 

(7.15)  1  :makelist (4*i+l , i , 0 , 15) ; 

( %o5)  [1,  5,  9, 13, 17,  21,  25,  29,  33,  37, 41, 45, 49,  53,  57,  61] 

(7.16)  makelist (7*k~2-l ,  k,  1,  10); 

( %o6)  [6,  27,  62, 111, 174,  251,  342, 447,  566,  699] 

C/.Í7)  f  1  (x)  :  =x~2 ; 

( %o7)  fl  ( x )  :=  x2 

(7.18)  apply(max, lista) ; 

(%o8)  31 

(7.19)  apply(min, lista) ; 

(%o9)  1 
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C/.Í10)  apply("  +  " , lista) ; 

( %ol0)  176 

(°/0ill)  apply (fl , lista) ; 

Nos  da  el  siguiente  mensaje  de  error: 

Too  many  arguments  supplied  to  / l(x);  found:  [1,4,7,10,13,16,19,22,25,28,31] 
-  an  error.  To  debug  this  try:  debugmode(true); 

Para  remediar  esta  última  que  da  error,  está  disponible  la  función  “map”  (en 
wxMaxima  a  través  del  menú  “Algebra” ,  “Distribuir  sobre  lista” )  se  uti¬ 
liza  para  construir  una  nueva  lista  formada  por  el  valor  de  una  función  sobre 
cada  uno  de  los  elementos  de  la  lista  original. 

(°/0il2)  map(fl ,  lista) ; 

( %ol2)  [1, 16, 49, 100, 169,  256,  361, 484,  625,  784,  961] 

Otras  instrucciones  relativas  a  listas  son  las  siguientes: 

■  part  busca  un  elemento  dando  su  posición  en  la  lista 

■  reverse  invertir  lista 

■  sort  ordenar  lista 

■  flatten  unifica  las  sublistas  en  una  lista 

■  length  longitud  de  la  lista 

■  unique  devuelve  lista  sin  elementos  repetidos 

■  abs  al  aplicarlo  a  lista  devuelve  la  lista  de  los  valores  absolutos  de  los 
elementos  de  la  lista  dada 

■  lmax  y  lmin  al  aplicarlos  a  una  lista  hacen  respectivamente  lo  mismo 
que  apply(max, lista)  y  apply(min, lista) 

(70il3)  part  (lista,  5) ; 

( %ol3)  13 

(70il4)  reverse  (lista)  ; 

( %ol4)  [31,  28,  25,  22, 19, 16, 13, 10,  7, 4, 1] 
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(°/0il5)  length(lista) ; 

(%ol5)  11 

(7.116)  f  latten(  [  [4,5]  ,4,  [1,2, 3, a]])  ; 

(%ol6)  [4,  5, 4, 1,2, 3,  a] 

(%i 17)  sort (%)  ; 

(%ol7)  [1,2,  3, 4, 4, 5,  a] 

(7.118)  unique ([1,1, 2, 3, 3, 4]) ; 

(%ol8)  [1,2,  3, 4] 

(7.Í19)  length(7.) ; 

( %ol9)  4 

2.1.2.  Matrices 

Las  matrices  se  introducen  en  MAXIMA  mediante  la  función  “matrix” , 
a  la  que  pasamos  cada  una  de  sus  filas,  constituidas  por  el  mismo  número 
de  elementos  numéricos  o  simbólicos,  escribiendo  estos  entre  corchetes.  Tam¬ 
bién  cabe  la  posibilidad  de  hacerlo  a  través  del  menú  Álgebra,  ofreciéndonos 
distintas  posibilidades. 

(7.120)  A:  matrix ([1,2,3]  ,  [4,5,6]  ,  [7,8,9])  ; 

(1  2  3 
( %o20)  4  5  6 

\7  8  9 

Se  puede  acceder  al  elemento  de  la  fila  3,  columna  1,  sin  más  que  poner 

A[3,l] 

(7.121)  A  [3,1]; 

(%o21)  7 

Se  pueden  introducir  matrices  cuyos  elementos  respondan  a  una  regla, 
definiendo  esta  mediante  una  fórmula  y  generando  la  matriz  a  continuación 
mediante  el  comando  “genmatrix”,  con  el  nombre,  el  número  de  filas  y 
el  de  columnas  como  argumentos,  o  también  mediante  el  menú  ‘‘Algebra, 
Generar  matriz,...” por  ejemplo 
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(°/oi22)  R  [i  ,  j]  :  =i*j  -1 ; 
(%o22)  Ríj  i  j  —  1 
(70i23)  B:genmatrix(R,4,6) ; 


( %o23) 


/O  1  2  3  4  5  \ 

1  3  5  7  9  11 

2  5  8  11  14  17 

\3  7  11  15  19  23/ 


Se  pueden  obtener  submatrices  de  una  dada  mediante  el  comando: 
“submatrix(ll,12,...,B,cl,c2,..)”,  en  el  se  indica  primero  las  filas  a  eli¬ 
minar,  segundo  el  nombre  de  la  matriz  y  finalmente  las  columnas  a  eliminar, 
por  ejemplo  si  se  requiere  la  submatriz  obtenida  de  la  B,  suprimiendo  las  filas 
Ia  y  3a,  y  las  columnas  4a  y  5a,  pondríamos 


(°/0i24)  submatrix(l,3,B,4,5)  ; 


(%o24) 


A  3  5  ll\ 

\3  7  11  23 J 


Se  puede  pedir  una  fila  o  columna  de  una  matriz,  así  como  añadir  filas  o 
columnas  mediante  los  comandos: 


■  row(B,i), 

■  col(B,j), 

■  addrow(B,[a,...,z]) 

■  addcol(B,[x,...,z]) 


(7.125)  row(B,2); 

(%o25)  (1  3  5  7  9  11) 

(7.126)  col(B,4)  ; 


( %o26) 


/  3\ 
7 
11 
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(0/oi27)  addrow(B,  [2,4, 6,8, 10, 12] )  ; 


( %o27) 


C/.Í28) 


/O  1  2  3  4  5  \ 

1  3  5  7  9  11 

2  5  8  11  14  17 

3  7  11  15  19  23 

\2  4  6  8  10  12/ 

addcol(B, [1,3, 5, 7]) ; 


( %o28) 


/O  1  2  3  4  5  1\ 

1  3  5  7  9  11  3 

2  5  8  11  14  17  5 

\3  7  11  15  19  23  7/ 


Se  pueden  realizar  operaciones  algebraicas  sobre  matrices,  con  algunas 
salvedades,  así  por  ejemplo: 

Se  pueden  realizar  operaciones  algebraicas  sobre  matrices,  con  algunas 
salvedades,  así  por  ejemplo: 

El  operador  (*)  se  interpreta  como  producto  elemento  a  elemento. 

El  operador  (.)  representa  el  producto  matricial  usual 

El  operador  (“)  calcula  las  potencias  de  los  elementos  de  la  matriz  dada 

El  operador  (~~)  calcula  las  potencias  de  la  matriz  dada 


Veamos  algunos  ejemplos 

C/.Í29)  mi  :matrix(  [1,2,3]  ,  [4,5,6]  ,  [7,8,9]) ; 
m2 : matr ix ([3,2,1] , [6,5,4] ,  [9,8,7]); 

/ 12  3 
( %o29)  4  5  6 

\7  8  9 
/  3  2 
( %o30)  6  £ 

\9  £ 

(°/0i31)  ml*m2; 

/  3  4  3  \ 

(%o31)  24  25  24 

\63  64  63/ 

(°/0i32)  ml.m2; 
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/  42  36  30 

(%o32)  96  81  66 

\150  126  102, 
(0/oi33)  ml~2; 

/  1  4  9 

(%o33)  16  25  36 

\49  64  81, 
C/.Í34)  ml~~2 ; 


/  30 

36 

42 

(%o34) 

66 

81 

96 

\102 

126 

150 

Que 

coincide  con 

la  n 

(7.Í35) 

mi .mi : 

i 

/  30 

36 

42' 

( %o35) 

66 

81 

96 

V  102 

126 

150 

Comandos  usuales,  entre  otros,  sobre  matrices  son  los  siguientes: 


■  transpose  da  la  traspuesta  de  una  matriz 

■  determinant  calcula  el  determinante  de  una  matriz  cuadrada 

■  rank  da  el  rango  de  una  matriz 

■  invert  da  la  inversa 

■  triangularize  da  la  matriz  triangular  superior  resultante  de  aplicar  el 
rnátodo  de  Gauss  a  una  matriz  dada 

■  eigenvalues  da  dos  listas,  la  primera  con  los  valores  propios  de  la 
matriz  y  la  segunda  con  sus  multiplicidades 

■  eigenvectors  da  una  lista  de  valores  propios  junto  a  una  serie  de  listas 
de  sus  autovectores  asociados 

■  nullspace  da  el  núcleo  de  la  aplicación  lineal  definida  por  esta  matriz 

■  columnspace  da  la  imagen  de  la  aplicación  lineal  definida  por  esta 
matriz 
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charpoly(m,x)  da  el  polinomio  característico  de  la  matriz  m  en  la 
variable  x 


(°/0i36)  transpose  (mi) ; 

/ 1  4  7n 
( %o36)  2  5  8 

\3  6  9, 

(°/0i37)  determinant  (mi) ; 

( %o37)  0 

(°/0i38)  eigenvalues  (mi) ; 

,<«  on\  rr  3  a/33  —  15  3^33  +  15 
(°/0i39)  eigenvectors (mi) ; 


,0],  [1,1,1]] 


(%o39)  [[[- 


3^33-15  3^33+15 
2  ’  2 


,o],[U,i]],[[[i, 


3  \/33— 19  32  yTT-11 


16  ’ 


]], 


[[1,33®tí!|31Ja!±n|||||li-2,1]]]] 


3  \/33+19  32  x/ñ+11 
16  ’  8 

(°/0i40)  rank(ml); 

( %o40)  2 

(°/0i41)  triangularize  (mi)  ; 

(1  2  3 

( %o41)  0  -3  -6 

\0  0  0 

(°/0i42)  charpoly (mí ,x)  ; 

( %o42)  ((5  -  x)  (9  -  x)  -  48)  (1  -  x)-2  (4  (9  -  x)  -  42)+3  (32  -  7  (5  -  x)) 
(°/0i43)  solve(°/0,x) ; 

3  a/33  —  15  3  1/33  +  15 


( %o43)  [x  = 


,  x  = 


-,x  =  0] 


2  ’  2 

(°/0i44)  Al:  matrix(  [1 ,2,3]  ,  [4,5,7]  ,  [7,8,9]  )$  determinant  (Al)  ; 

( %o45)  6 

(°/0i46)  invert(Al); 
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'_n  i  _in 
(%o46)  |  f  -2  |6 

-I  1  -i 

(°/0i47)  %  -  Al ; 


/I  0  0N 

( %o47)  0  10 

\°  0  h 

(°/0i48)  nullspace(ral) ; 

(I-* 

( %o48)  span  II® 

(°/0i49)  nullspace(Al) ; 

( %o49)  span  () 

(°/0i50)  coluranspace  (mi) ; 


( %o50)  span 


T 
,  7 ) 


2' 


(7,15 1 )  nullspace(m2) ;  columnspace(m2) ; 


( %o51)  span 


( %o52)  span 


'2' 


.‘7 

6 

,9, 


(°/0i53)  nullspace(Al) ;  columnspace(Al) ; 

( %o53)  span  () 


( %o54)  span 


T 

.7, 


'2n 


,9, 


Ejercicio.  Hacer  programas  para  calcular  el  radio  espectral  p(A),  ||  A 
A  || i  y  ||  A  Hoo  de  una  matriz  dada  A. 


2, 
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2.1.3.  Expresiones  algebraicas 

Existe  un  gran  número  de  funciones  relacionadas  con  la  manipulación  de 
ecuaciones  y  expresiones  algebraicas,  algunas  de  las  cuales  se  muestran  en  el 
siguiente  ejemplo: 

■  expand(expr)  para  desarrollar  expresiones  en  varios  términos 

■  ratsimp(expr)  para  agrupar  en  fracciones  con  denominador  común, 
a  veces  se  usa  la  siguiente 

■  fullratsimp(expr),  como  una  reiteración  de  la  anterior 

■  factor  (expr)  para  factorizar  expresiones. 

En  wxMaxima  se  puede  acceder  a  estas  funciones  a  través  del  menú  “Simplificar” . 
(°/oi55)  (x-2*y)  ~4 ; 

(%o55)  (x-2  yf 
(70i56)  expand(°/„)  ; 

( %o56)  16  /  —  32  x  y3  +  24  x2  y2  —  8  x3  y  +  xA 

(7.157)  7o,x=l/y; 

sustituye  en  la  expresión  anterior  x  por  1/y,  dando  la  siguiente  salida: 

(%o57)  16/ -32 y2  -  4  +  4  +  24 

y  y 4 

(7á58)  ratsimp(7o); 


( %o58) 


16  y8  -  32  y6  +  24  /  -  8  y2  +  1 


r 


(7oi59)  factor (7o) ; 
(2/-1)4 


( %o59) 


T 


En  los  ejemplos  anteriores  se  aprecia  que  en  Maxirna  se  puede  susti¬ 
tuir  cualquier  expresión,  el,  por  otra,  e2,  añadiendo  una  coma  y  a 
continuación  una  indicación  del  tipo  el=e2.  También  se  puede  utilizar 
la  función  “subst”,  en  la  forma  “subst(e2,el,  %)” .  Esta  función  está  dis¬ 
ponible  en  wxMaxima,  a  través  del  menú  “Simplificar”,  “Sustituir...”  y 
a  través  del  botón  [Sustituir...].  Las  expresiones  trigonométricas  tienen, 
además,  funciones  propias  como  son: 
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■  trigexpand  que  aplica  las  propiedades  trigonométricas  de  suma  de 
ángulos  para  que  los  argumentos  contenidos  en  las  funciones  sean  lo 
más  simples  posibles,  y 

■  trigreduce  que  aplica  las  propiedades  en  sentido  contrario,  de  modo 
que  no  haya  términos  que  contengan  productos  de  funciones  seno  o 
coseno. 

Estas  funciones  están,  respectivamente,  disponibles  en  el  menú  “Simplificar, 
Simplificación  trigonométrica,  Expandir  trigonometría...”  y  “Simplificar, 
Simplificación  trigonométrica,  Reducir  trigonometría...”,  así  como  en 
los  botones  [Expandir  (tr)]  y  [Reducir  (tr)]. 

(70i60)  sin(x)  ~3*cos  (x-y)+cos  (x)  ~2*sin(x-y) ; 

( %o60)  sin  (a:)3  eos  (y  —  x)  —  eos  ( x )2  sin  ( y  —  x) 


( °/o i 6 1 )  trigexpand (%) ; 

( %o61)  sin  (r)3  (sin  (x)  sin  (y)  +  eos  (x)  eos  (y))  — 
eos  ( x )2  (eos  (x)  sin  (y)  —  sin  (x)  eos  (y)) 

(°/0i62)  trigreduce (%) ; 

/  (W  Sin  (y  -  4  x)  -  sin  (y  +  2x)  -sin  (y  +  x)  -  sin  (y  -  3x) 

(  /oo b¿)  - - - + - - - 


2.1.4.  Ecuaciones  y  sistemas 

Aunque  profundizaremos  algo  más  en  el  próximo  capítulo,  veamos  rápida¬ 
mente  algunos  comandos  de  Maxima  para  resolver  ecuaciones  o  sistemas.  En 
Maxima,  el  signo  =  se  utiliza  para  definir  ecuaciones.  Los  sistemas  de  ecua¬ 
ciones  se  definen  como  listas  de  ecuaciones,  que  se  escriben  entre  corchetes, 
separadas  por  comas.  La  función  “solve(ecuaciones, incógnitas)”  devuelve 
una  lista  formada  por  las  soluciones  de  la  ecuación  (o  sistema  de  ecuaciones) 
donde  la  incógnita  (o  lista  de  incógnitas)  viene  dada  por  incógnitas.  En  wx- 
Maxima,  se  puede  acceder  a  esta  función  a  través  del  menú  Ecuaciones, 
Resolver...  o  bien  del  botón  [Resolver...] 

(°/0i63)  solve(x~2+x+l=0,x) ; 


2.1.  Álgebra 
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(°/0i64)  eql:x+y+z=l  $ 
eq2:x-y=0  $ 
eq3 : 2*x-y+z=2  $ 
solve ( [eql , eq2 , eq3] , [x , y , z] ) ; 

( %o67)  [[x  =  -1,  y  =  -1, 0  =  3]] 

En  el  caso  de  los  sistemas  lineales  es  más  eficiente  utilizar  la  función: 
“linsolve( [ecuaciones], [variables])”,  veamos  nuevamente  el  ejemplo  ante¬ 
rior 

(°/0i68)  eq:[x+y+z=l,  x-y=0 , 2*x-y+z=2] $ 
linsolve(eq, [x,y,z] ) ; 

( %o69)  [x  =  —1,  y  =  —1,  z  —  3] 

Para  sistemas  algebraicos  en  general  se  utiliza  la  función: 

“algsys( [ecuaciones], [variables])”,  la  primera  diferencia  con  solve  es  que 
siempre  tiene  como  entrada  listas,  en  otras  palabras,  tenemos  que  agrupar 
la  ecuación  o  ecuaciones  entre  corchetes  igual  que  las  incógnitas,  la 
segunda  diferencia  es  que  algsys  intenta  resolver  numéricamente  la  ecua¬ 
ción  si  no  es  capaz  de  encontrar  la  solución  exacta.  La  diferencia  entre  ambas 
puede  verse  en  el  siguiente  ejemplo: 

(°/0i70)  solve(x~6+x+l=0,x) ; 

( %o70)  [0  =  x6  +  x  +  1] 

(°/0i7 1)  algsys  ( [x~6+x+l=0]  ,  [x] )  ; 

Que  da  la  salida  (%o71) 

[[x  =  -1,038380754458461  ¿  -  0,15473514449684], 

[x  =  1,038380754458461  i  —  0,15473514449684], 

[x  =  —0,30050692030955  i  -  0,79066718881442], 

[x  =  0,30050692030955  i  —  0,79066718881442], 

[x  =  0,94540233331126  -  0,61183669378101  i], 

[x  =  0,61183669378101  i  +  0,94540233331126]] 

Observaciones:  Si  sólo  se  requieren  raíces  reales  basta  con  poner  la  variable 
booleana  “realonly”  como  “trae”.  Aunque  las  ecuaciones  polinómicas  se 
pueden  resolver  de  manera  aproximada  mediante  los  comandos  siguientes: 
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■  “allroots(polinomio)”  y 

■  “realroosts(polinomio)” 

que  proporcionan  soluciones  racionales  aproximadas  de  polinomios  en  una 
variable,  reales  en  el  segundo  caso. 

(°/0i72)  allroots ( (product (x-i , i ,  l,20)  +  10~(-7)*x~19))  ; 

(%o72)  [x  =  1,0,  x  =  2,000000000000977,  x  =  3,000000000140009, 
x  =  3,999999991528309,  x  =  5,000000222049875,  x  =  5,999992560260244, 
x  =  7,000263999613584,  x  =  7,994096489299987,  x  =  9,112077256679337, 
x  =  9,570864942275728,  x  =  1,102220454406112  i  +  10,92126450508518, 
x  =  10,92126450508518  -  1,102220454406112  i, 
x  =  2,062169061213381  i  +  12,84620554309262, 
x  =  12,84620554309262  -  2,062169061213381 i, 
x  =  2,69861837443531  i  +  15,31474224497542, 
x  =  15,31474224497542  -  2,69861837443531  i, 
x  =  2,470196797035823  i  +  18,15719154663773, 
x  =  18,15719154663773  -  2,470196797035823  i, 
x  =  0,99919961819071  i  +  20,421948379285, 
x  =  20,421948379285  -  0,99919961819071  i] 

(°/0i73)  algsys(  [product  (x-i ,  i ,  1 , 20) +10"  (-7)  *x~19=0]  ,  [x] )  ; 

Salida  ( %o73) 


[[x  =  20,421948379285  -  0,99919961819071  i], 

[x  =  0,99919961819071  i  +  20,421948379285], 

[x  =  18,15719154663773  -  2,470196797035823 i], 
[x  =  2,470196797035823  i  +  18,15719154663773], 
[x  =  15,31474224497542  -  2,69861837443531  i\, 

[x  =  2,69861837443531  i  +  15,31474224497542,] 

[x  =  12,84620554309262  -  2,062169061213381  i], 
[x  =  2,062169061213381  i  +  12,84620554309262], 
[x  =  10,92126450508518  -  1,102220454406112 i], 
[x  =  1,102220454406112  i  +  10,92126450508518], 
[x  =  9,570864847089773],  [x  =  9,112077294685991], 
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[x  =  7,994096812278631],  [x  =  7,000264061262213], 

[x  =  5,999992560243429],  [x  =  5,0],  [x  =  4,0], 

[x  =  3,0],  [x  =  2,0],  [x  =  1,0]] 

Para  ampliar  información  sobre  estos  comandos  y  ver  sus  limitaciones 
teclear  ?  seguido  del  comando  correspondiente. 

2.2.  Cálculo 

2.2.1.  Límites 

El  cálculo  de  límites  se  realiza  con  la  función  “limit”  en  la  forma: 

■  limit  (expr,x,a)  límite  de  expr  cuando  x  tiende  a  a 

■  limit  (expr, x, a, plus)  límite  de  expr  cuando  x  tiende  a  a  por  la  derecha 

■  limit  (expr,x,a,minus)  límite  de  expr  cuando  x  tiende  a  a  por  la 
izquierda 

A  su  vez  a  puede  ser  sustituido  por 

■  inf  +  infinito 

■  minf  -  infinito 

Y  el  resultado  puede  tener  un  valor  concreto  o  bien  dar 

■  und  indefinido 

■  ind  indefinido  pero  acotado 

También  podemos  calcularlos  con  el  menú  “Análisis-Calcular  Límite” . 
(°/0i74)  limit (n/(2*n+l)  ,n, inf )  ; 

(%o74)i 

(°/0i75)  limit  ( (n-2*n)/(n~3-2)  ,n,  inf)  ; 

( %o75)  0 

(°/0i76)  limit  ( (n-sin(n)  )/(n-tan(n) )  ,n,  inf )  ; 

( %o76)  und 
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(°/0i77)  limit (eos (1/x)  ,x,0)  ; 

( %o77)  ind 

(°/0i78)  limit  (sin(x)/(3*x)  ,x,0)  ; 
( %o78)  i 


2.2.2.  Derivadas 

El  cálculo  de  derivadas  se  realiza  con  los  comandos: 

■  diff(expr, variable)  derivada  de  expr  respecto  de  variable 

■  diff(expr, variable, n)  derivada  n-ésima  de  expr  respecto  de  variable 

■  diff(expr,variablel,nl,variable2,n2)  hace  la  derivada  (nl+n2)-ési- 
ma  de  expr  respecto  de  la  variablel  ni  veces  y  respecto  de  la  variable2 
n2  veces. 

O  también  a  través  del  menú  “Análisis-Derivar. 

(70i79)  func(x)  :=x~tan(x)+5*sin(log(x))$  diff  (func(x)  ,x) ; 

, ,,,  .  5  eos  (log  (x))  /tan  (x)  ,  .  .  .  ,9\ 

%o80  - v  +  xtan(x)  - —  +  log  (x)  sec  (xf 

X  \  X  ) 

(7,i81)  kill(f)$  f  (x,y)  :  =x~y+y*sin(l/x) $  diff  (f  (x,y)  ,y)  ; 


( %o83)  xy  log  (x)  +  sin 

(7,i84)  diff  (f  (x,y)  ,x,2)  ; 


( %o84)  xy~ 2  {y  -  1)  y  +  2C°S^  V 

xó 

(7,i85)  diff  (f  (x,y)  ,y,l,x,l)  ; 


sín  (l)  V 

XA 


(  %o85)  xy  1  log  (x)  y  +  xy  1 


(7,i86)  diff  (f  (x,y)  ,y,2) ; 

( %o86)  xy  log  (x)2 

También  podemos  hallar  el  jacobiano  de  lina  función  vectorial  de  varias 
varíales  o  el  hessiano  de  una  función  escalar,  en  la  forma: 


2.2.  Cálculo 
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■  jacobian( [xy  +  z,  x2y  —  z3],[x,  y,  z]) 

■  hessian(x2  +  y3  +  z4,  [x,  y:  z\) 


(70i87)  jacobian(  [x*y+z ,x~2*y-z~3]  ,  [x,y,z] ) ; 

<%o87>  (ai,  5  — 3s2) 

(°/0i88)  hessian(x~2+y~3+z~4,  [x,y,z] )  ; 


/2  0  0  \ 

(%o88)  0  6y  0 

\0  0  12  z2J 

Si  se  quiere  reutilizar  la  derivada  de  una  función  como  una  nueva  función 
debe  hacerse  con  el  comando  “define(g(x),  diff(f(x),x))” ,  que  fuerza  a 
evaluar  la  derivada. 


(°/0i89)  define(g(x),  diff  (func(x)  ,x) ) ; 

N  5 eos  (log  (x))  fan(r)  /tan(x)  ,  .  .  .  .2 

( %o89)  g  (x)  := -  +  xtan(-x)  - —  +  log  (a;)  sec  (x) 


x  \  x 

Los  operadores  conidia  y  dobles  comillas  tienen  un  comportamiento  muy 
distinto:  una  comilla  simple  hace  que  no  se  evalúe,  en  cambio  las 
dobles  comillas  obligan  a  una  evaluación  de  la  expresión  que  le  sigue. 
Veamos  la  diferencia  cuando  aplicamos  ambos  a  una  misma  expresión: 

(°/0i90)  ’diff  (func(x)  ,x)  =  ’  ’diff  (func(x)  ,x)  ; 

( %o90) 
d 

dx  '  ■  -  .  . .  ,  x 

( °/o i 9 1 )  ’diff (f (x,y)  ,x)  =  ’  ’diff (f (x,y)  ,x) ; 


(5  sin  (log  (x))  +  xtan(x })  =  —  (1°g  ^+xtan(a:)  ( +  log  (x)  sec  (x) 
v  '  x  V  x 


( %o91)  (sin  y  +  xy)  =  x y~l  y  -  C°S  ^  V 


dx 


x 


x¿ 


(0/oi92)  ’diff (f (x,y)  ,x, 1 ,y, 1)=’  ’diff  (f  (x,  y)  ,x,l,y,l)  ; 


( %o92)  —  (sin  y  +  xy 

dxdy  \  \x J 

Veamos  algunos  comandos  usuales  en  cálculo  vectorial,  para  ello  es  necesa¬ 
rio  previamente  cargar  el  paquete  “vect”,  mediante  la  instrucción  “load(vect)” 
Entonces  podemos  calcular: 


=  xy  1 log  (x)  y  +  x 


y-1  _ 


eos 


(i) 


x^ 
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■  El  gradiente  de  una  función  o  campo  escalar  en  la  forma 

express(grad(f(x,y,z));  ev(  %,diff); 

■  La  divergencia  de  un  campo  vectorial  en  la  forma 

express(div( [fl (x,y,z) ,f2 (x,y,z) ,f3(x,y,z)] ) ) ;ev(  %,diff ) ; 

■  El  rotacional  de  un  campo  vectorial  en  la  forma 

express(curl( [fl (x,y,z) ,f2(x,y,z) ,f3(x,y,z)] ) ) ;ev(  %,diff ) ; 

■  El  laplaciano  de  una  función  o  campo  escalar  en  la  forma 

express(laplacian(f(x,y,z));  ev(  %,diff); 

■  El  producto  vectorial 
(0/0i93)  load(vect); 

(%o93)  C:/PROGRA  2/MAXIMA  1.0-2/share/maxima/ 
5.28.0-2/share/vector/vect.mac 

(7oi94)  grad(log(x*y*z) ) ; 

( %o94)  grad  (log  (x  y  z)) 

(°/0i95)  express  (7o); 

( %o95)  log  ( xyz ) ,  ^  log  (. xyz ),-jz  loS  (x  V  z )] 

(7.196)  ev(7o,diff ) ; 

(%o96)[i,i,  -] 

xyz 

(7.197)  express (grad(log(x*y*z) ))  ;  ev(7»,diff); 

( %o97)  log  (xyz),  log  (. xyz ),-jz  loS  ( x  V  z)\ 

(%o98)  [i,  1,  i] 
xyz 

(7oi99)  express(grad(x~2*sin(y*x)+z~3))  ;  ev(7»,diff); 

(%o99)  (z3  +  x2sm(xy)),-^-  (z3  +  x2sm(xy)),-^—  (z3  +  x2  sin  (xy))] 

dx  dy  dz 

( %ol00)  [2  x  sin  (x y)  +  x2  y  eos  (x y) ,  x3  eos  (xy)  ,3  z2] 
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(0/0il01)  express(div(  [x~3*cos (y*z)  ,x-sin(y*z)  ,x+z~3] ))  ;ev(7„,diff)  ; 

(%ol01)  -f-  (x  —  sin  (yz))  +  (x3  eos  (y  z))  +  (z3  +  x)  (%ol02)  — 

ay  ax  v  '  az  v  ' 

z  eos  (y  z)  +  3  x2  eos  (y  z)  +  3  z2 

(°/0il03)  express(laplacian(x~2*sin(y*x)+z~3))  ;  ev(°/„,diff )  ; 


(%ol03) 

(z3  +  x2  sin  (x  y))  +  (z3  +  x2  sin  (x  y))  +  (z3  +  x2  sin  (x  y)) 

cl  z  d  w  a  x 

( %ol04)  6  z  —  x2  y2  sin  (x  y)  —  x4  sin  (x  y)  +  2  sin  (x  y)  +  4  x  y  eos  (x  y) 
(70il05)  express (grad(x~2*sin(y*x) ) ) ;  ev(°/0,diff)  ; 


(%ol05)  (x2sin  (xy))  ,  (x2  sin  (xy))  ,  (x2sin(xy))] 

CL  OC  d  W  CL  Z 

(  %ol06)  [2  x  sin  (x  y)  +  x2  y  eos  (x  y) ,  x3  eos  (x  y) ,  0] 


(7.1107)  [2,14,10]~  [1,7, 5]  ; 


(%ol07)  -  [1,7,5]  [2,14,10] 

(%i 108) express ( [-1 , 2 , 1] ~ [2 , 14 , 10] ) ; 


(%ol08)  [6,12,-18] 

Los  desarrollos  de  Taylor  se  realizan  con  los  comandos: 

■  taylor  (<  expr  >,  <  x  >,  <  a  >,  <  n  >) 

■  taylor  (<  expr  >,  [<  x\  >,  <  x2  >, ...],  <  a  >,<  n  >) 

■  taylor  (<  expr  >,  [<  x  >,  <  a  >,  <  n  >,'  asymp]) 

■  taylor  (<  expr  >,  [<  x\  >,  <  x2  >, ...],  [<  ai  >,  <  a2  >, ...],  [<  ni  > 
,  <  n2  >, ...]) 

■  taylor  (<  expr  >,  [<  xi  >,  <  ai  >,  <  ni  >],  [<  x2  >,  <  a2  >,  <  n2  > 

],-) 

que  dan  respectivamente  los  desarrollos  de  Taylor  de  expresión  respecto  de  la 
variable  x  alrededor  del  punto  a  hasta  el  orden  n,  para  una  o  varias  variables, 
para  más  indicaciones  teclear  ?  taylor.  Veamos  un  par  de  ejemplos: 
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(°/0illO) taylor (sin(x)  ,x,0, 11) ; 


nn’-J  nn'-' 

(%oll0)/T/*--  +  - 


X 


+ 


X 


X 


11 


5040  362880  39916800 

(°/oi  111)  taylor  (sin  (x+y)  ,  [x,y]  ,  [0,0]  ,10)  ; 


+  ... 


(%oiii)/t/  x  +  v_(i±vl  +  ^+y? 


6 


120 


(x  +  y)7  (x  +  y)9 


5040 


362880 


2.2.3.  Cálculo  integral 

En  wxMaxima  es  posible  calcular  integrales  de  funciones,  tanto  definidas 
como  indefinidas,  mediante  el  comando  “intégrate”  o  bien  en  el  menú  “Análi¬ 
sis  -  Integrar...”  e  introduciendo  en  la  ventana  de  diálogo  la  correspondiente 
función,  en  la  forma: 


■  integrate(f(x),x)  que  da  la  primitiva  de  la  función  f(x). 

■  integrate(f(x),x,a,b)  que  da  la  integral  definida  de  la  función  f(x)  en 
el  intervalo  [a,b]. 


Las  integrales  múltiples  pueden  hacerse  como  una  reiteración  de  integrales 
simples. 

(70ill2)  intégrate (x~  10/ (10+x)  ,x) ; 


( %oll2)  10000000000  log  (x  +  10)  +  (63  x10  -  700  x9  +  7875  x8  -  90000  x7  + 
1050000  x6  -  12600000  x5  + 157500000  x4  -  2100000000  x3  +  31500000000  x2  - 
630000000000  x)/ 630 

(°/0ill3)  intégrate (x~  10/ (10+x)  ,x,0, 1)  ; 


.  „  ,  3150000000000 log (11)  -  300227066381 

<%0ll3)  - 315 - 

(°/0ill4)  %,numer ; 


10000000000  log (10) 


(%oll4)  0,0083236694335938 

(%i 115) integrate(l/(x~2+l) ,x,0, inf) ; 


(%oll5)  | 

La  integración  numérica  de  una  función  f(x)  en  un  intervalo  [a,b]  se  realiza 
con  alguno  de  los  siguientes  comandos: 
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■  quad  qags(f(x),x,a,b)  para  a  y  b  finitos 

■  quad_qagi(f(x),x,a,b)  para  intervalos  ilimitados 

■  romberg(f(x),x,a,b)  para  a  y  b  finitos 

Si  se  introduce  en  el  menú  “Análisis  -  Integrar  (y  marcamos  integración 
definida  e  integración  numérica)”  podemos  elegir  entre  el  método  quadpack 
o  romberg;  quad  qags  y  romberg,  se  pueden  utilizar  en  intervalos  finitos. 
Para  más  información  sobre  estos  comandos  introducir  “?  quad  qags”  y  “? 
romberg” . 

(°/0ill8)  quad_qags(l/(x~2+l)  ,  x,  0,  1); 

( %oll8)  [0,78539816339745,  8,719671245021583  10“15,  21,  0] 

(°/0ill9)  romberg (1/ (x~2+l)  ,x,0 , 1) ; 

(%oll9)  0,7853981595992 

(7oil20)  intégrate (l/(x~2+l) ,  x,  0,  1); 

(%ol20)  | 

(°/0il21)  7o,nuraer ; 

(%ol21)  0,78539816339745 
(74122)  load  (romberg) ; 

(%ol22)  C  :  /PROGRA  2 /MAXIMA  1,0  —  2/share/maxima/ñ, 28,0  — 
2  /  share/ numeric/ romberg. lisp 

(7,il23)  romberg(l/ (x~2+l)  ,x,0, 1) ; 

(%ol23)  0,7853981595992 

Se  puede  mejorar  esta  aproximación  cambiando  la  variable  “rombergtol” , 
tras  haber  cargado  el  paquete  “romberg”  mediante  “load(romberg)” 

(7oil24)  rombergtol :  1 . 0*10~-15; 

(%ol24)  1,0000000000000001  10~15 
(7oil25) romberg(l/ (x~2+l)  ,x,0, 1) ; 

(%ol25)  0,78539816339745 
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Calculemos  integrales  impropias  con  intervalo  de  integración  no  acotado, 
esto  se  hace  sólo  con  el  comando  “quad_qagi(f(x),x,a,b)” 

(°/0il26)  quad_qagi(l/(x~2+l) ,  x,  0,  inf)  ; 

( %ol26)  [1,570796326794897, 2,5777915205990436  10“10, 45,  0] 

(°/0il27)  romberg(l/ (x~2+l)  ,  x,  0,  inf); 

( %ol27)  romberg  (  — - ,  x,  0,0,  oo 

\x ¿  +  1 

2.2.4.  Ecuaciones  diferenciales 

Maxima  dispone  del  comando:  ”ode2 (ecuación  diferencial,y,x)”para 
resolver  algunas  ecuaciones  de  primer  o  segundo  orden;  para  escribirlas  uti¬ 
lizaremos  el  comando  diff  precedido  de  una  (’)  para  evitar  que  MAXIMA 
calcule  la  derivada.  Veamos  un  par  de  ejemplos  (en  el  primero  hallamos  la 
solución  general  de  la  ecuación  de  primer  orden  xy2y'  +  x2y  =  0  y  en  el 
segundo  de  la  ecuación  de  segundo  orden  x2y"  +  xy'  —  2  =  0): 

(°/0i  128)  edo:x*y~2*,diff  (y,x)+x~2*y=0; 
ode2(edo,y,x) ; 

( %ol28)  x  y2  f  y\  +  x2  y  =  0 

\  Cáj  i 

v2  x2 

(%ol29)  -A_  =  -+%c 

aquí  %c  es  una  constante  arbitraria. 

(°/,il30)  edol : x~2*  ;dif f  (y ,x, 2)+x* ’dif f  (y ,x)-2=0;  ode2(edol  ,y ,x) ; 

( %ol30)  *2  {z^y)+x  {iiy)-2=0 

(  %ol31)  y  =  log  (x)2  +  %k2  log  (x)  +  %k  1 

en  la  que%kl  y%k2  son  sendas  constantes  arbitrarias. 

Para  introducir  condiciones  iniciales  o  de  contorno  se  utilizan  los  coman¬ 
dos: 

icl(soluciondeecuación,x=a,y=b)  resuelve  problemas  de  valores  ini¬ 
ciales  de  primer  orden 

ic2(solucióndeecuación,x=a,y=b,diff(y,x)=c)  resuelve  problemas  de 
valores  iniciales  de  segundo  orden 
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bc2(solucióndeecuación,x=a,y=b,x=c,y=d)  resuelve  problemas  de 
contorno  para  una  ecuación  de  segundo  orden 

(°/,i  134)  edo :  x*y~2* 5  dif  f  (y ,  x)  +x~2*y=0$ 
ode2(edo,y,x) ;  icl(°/„,x=0,y=2) ; 


(%ol35)  - 
( %ol36) 


+  %c 
x2  —  4 


(°/0il37)  edol : x~2* ’dif f  (y ,x, 2)+x* ’dif f  (y ,x)-2=0$  ode2(edol  ,y ,x) ; 
ic2  (% , x=°/„e , y=0 , dif  f  (y , x) =1 ) ; 


( %ol38)  y  =  log  ( x )2  +  %k2  log  (x)  +  %kl 
(  %ol39)  y  =  log  (a:)2  —  2  log  (x)  +  1 

(°/0il40)  edol : x~2* ’dif f  (y ,x, 2)+x* ’dif f  (y  ,x)-2=0$  ode2(edol  ,y ,x) ; 
bc2  (% ,  x=7„e ,  y=l ,  x=°/„e~ 2 ,  y=2)  ; 


( %ol41)  y  =  log  ( x )2  +  %k2  log  (x)  +  %kl 
(  %ol42)  y  =  log  (a:)2  —  2  log  (x)  +  2 


2.3.  Gráficas  de  funciones 

2.3.1.  Funciones  en  2-D 

La  gráfica  de  una  función  de  una  variable  real  se  hace  con  el  comando 
plot2d  que  actúa,  como  mínimo,  con  dos  parámetros:  la  función  (o  lista 
de  funciones  a  representar),  y  el  intervalo  de  valores  para  la  variable  x.  Al 
comando  plot2d  se  puede  acceder  también  a  través  del  menú  “Gráficos  - 
Gráficos  2D”.  Por  ejemplo:  plot2d(f(x),[x,a,b])  da  la  gráfica  de  f(x)  en 
[a,  b],  en  tanto  que  plot2d([fl(x),f2(x),...],[x,a,b])  da  las  gráficas  de  las 
funciones  fl(x),f2(x),...  en  [a,  b].  Si  se  le  añade  el  prefijo  wx  delante  los 
presenta  en  la  misma  pantalla  no  en  una  aparte,  como  hacen  plot  o  draw. 

(°/0il43) plot2d(x*sin(l/x)  ,  [x,-°/„pi,%pi] ) ; 

SALIDA:  plot2d:  expression  evaluates  to  non-numeric  valué  somewhere 
in  plotting  range.  La  gráfica  correspondiente  sale  en  una  pantalla  emergente, 
si  la  queremos  en  línea,  basta  poner  el  wx  delante  como  viene  a  continuación. 

(°/0il44)  wxplot2d(x*sin(l/x) ,  [x,-°/0pi ,°/0pi] )  ; 


62 


Capítulo  2.  Introducción  a  Maxima:  Parte  II 


Su  salida  nos  da  en  pantalla  la  gráfica  de  x  ■  sin(l/x)  en  el  intervalo  [— n,  7r]. 


X 


(°/0il46)  wxplot2d(  [sin(2*x)  , cos(2*x)]  ,  [x,-°/„pi,%pi] )  ; 

Que  nos  da  las  gráficas  de  sin(2x)  y  cos(2a;)  en  el  intervalo  [ — 7r,  7t]  . 


X 
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(°/0il47)  plot2d(  [x~2-x+l , -x~2+x+4]  ,  [x, -1 . 5 , 2 . 5]  ,  [y, 0,5], 
[plot_f ormat ,  openmath] ) $ 


Cuando  pulsamos  el  botón  Gráficos  2D  en  el  menú  de  Gráficos  de  wx- 
Maxima,  aparece  una  ventana  de  diálogo  con  varios  campos  que  podemos 
completar  o  modificar: 

a)  Expresión  (es).  La  función  o  funciones  que  queramos  dibujar.  Por  de¬ 
fecto,  wxMaxima  rellena  este  espacio  con  %  para  referirse  a  la  salida  anterior. 

b)  Variable  x.  Aqní  establecemos  el  intervalo  de  la  variable  x  donde  que¬ 
ramos  representar  la  función. 

c)  Variable  y.  ídem  para  acotar  el  recorrido  de  los  valores  de  la  imagen. 

d)  Graduaciones.  Nos  permite  regular  el  número  de  puntos  en  los  que 
el  programa  evalúa  una  función  para  su  representación  en  polares.  Veremos 
ejemplos  en  la  sección  siguiente. 

e)  Formato.  Maxima  realiza  por  defecto  la  gráfica  con  un  programa  auxi¬ 
liar.  Si  seleccionamos  en  línea  como  programa  auxiliar  wxMaxima,  entonces 
obtendremos  la  gráfica  en  una  ventana  alineada  con  la  salida  correspondien¬ 
te.  Hay  dos  opciones  más  y  ambas  abren  una  ventana  externa  para  dibujar 
la  gráfica  requerida:  gnuplot  es  la  opción  por  defecto  que  utiliza  el  programa 
Gnuplot  para  realizar  la  representación;  también  está  disponible  la  opción 
openmath  que  utiliza  el  programa  XMaxima.  Prueba  las  diferentes  opciones 
y  decide  cuál  te  gusta  más. 
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f)  Opciones.  Aquí  podemos  seleccionar  algunas  opciones  para  que,  por 
ejemplo,  dibuje  los  ejes  de  coordenadas  (“set  zeroaxis;”);  dibuje  los  ejes  de 
coordenadas,  de  forma  que  cada  unidad  en  el  eje  Y  sea  igual  que  el  eje  X 
(“set  size  ratio  1;  set  zeroaxis;”);  dibuje  una  cuadrícula  (“set  grid;”)  o  dibuje 
una  gráfica  en  coordenadas  polares  (“set  polar;  set  zeroaxis;”).  Esta  última 
opción  la  comentamos  más  adelante. 

g)  Gráfico  al  archivo.  Guarda  el  gráfico  en  un  archivo  con  formato  PostS¬ 
cript. 

Evidentemente,  estas  no  son  todas  las  posibles  opciones.  La  cantidad 
de  posibilidades  que  tiene  Gnuplot  es  inmensa.  Hay  opciones  para  pintar 
en  polares,  paramétricas,  poligonales,  etc.  Veamos  como  funcionan  algunas 
opciones,  ponemos  el  prefijo  wx  para  presentarlas  en  pantalla. 

(°/0il49)  wxplot2d(0 . 5*x~3+x-l ,  [x,-2,2] )  ; 

( %ol49) 
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(°/0il50)  wxplot2d(  [0 . 5*x~3+x-l]  ,  [x,-2,2]  ,  [y, -8, 6]  , 
[gnuplot_preamble ,  "set  zeroaxis; "] )$ 


( %o!50) 
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(%i 15 1 ) wxplot2d( [0 . 5*x~3+x-l] ,  [x,-2,2],  [y, -8, 6], 

[gnuplot_preamble ,  "set  size  ratio  1;  set  zeroaxis;"], 
[nticks,40] )$ 

( %ol51) 
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(°/0il52)  wxplot2d(  [0 . 5*x~3+x-l]  ,  [x,-2,2]  ,  [y, -8, 6], 

[gnuplot_preamble ,  "set  size  ratio  2;  set  zeroaxis;"], 
[nticks,40] )$ 

( %ol52) 
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(%i 153) wxplot2d( [0 . 5*x~3+x-l] ,  [x,-2,2] ,  [y, -8, 6], 

[gnuplot_preamble ,  "set  size  ratio  1;  set  zeroaxis ;"]) $ 

( %o!53) 
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(°/0il54)  wxplot2d(  [0 . 5*x~3+x-l]  ,  [x,-2,2]  ,  [y, -8, 6], 
[gnuplot_preamble ,  "set  grid;"])$ 

( %ol54) 
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(°/0il55)  f  (x)  :  =  if  x<0  then  sqrt(-x)  else  x~3$  wxplot2d(f  (x)  , 

[x,-9,9] ,  [y, -1,6],  [gnuplot_preamble ,  "set  zeroaxis ; ; 

plot2d:  some  valúes  were  clipped. 

( %ol56) 
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(°/0il57)  wxplot2d(  [2*cos(ph)j  ,  [ph,0,2*°/„pi]  , 

[gnuplot_preamble ,  "set  polar;  set  zeroaxis; "] )$ 

( %ol57) 


(°/0il58)  wxplot2d(  [[’parametric,  2*cos(t),  sin(t),  [t, 
[nticks,  300]]],  [x,-5,5] ,  [gnuplot_preamble , 

( %ol58) 
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-°/„pi,  %pi]  , 

"set  zeroaxis ;"]) $ 
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(°/0il59)  wxplot2d(  [[’discrete,  [1,  1.5,  2,  2.5,  3], 

[1,  2.25,  4,6.25,9]]],  [x,l,3],  [y, 1,9], 
[gnuplot_preamble ,  "set  grid;"])$ 

( %ol59) 
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2.3.2.  Funciones  en  3-D 

También  podemos  representar  funciones  de  dos  variables  de  forma  similar 
a  como  hemos  representado  las  de  una.  Aunque  ahora  debemos  utilizar  el 
comando  “plot3d”  en  lugar  de  plot2d,  pero  igual  que  en  el  caso  anterior,  son 
obligatorios  la  función  o  funciones  a  representar  y  el  dominio  de  definición 
de  las  variables,  la  forma  ahora  es  la  siguiente: 

“plot3d(f(x,y) ,  [x,a,b] ,  [y,c,d] )”  y  da  la  gráfica  de  f(x,  y)  en  [a,  b]  x  [c,  d] 
que  se  puede  girar  sin  más  que  pinchar  sobre  ella  con  el  cursor  y  desligarlo. 

Si  se  requiere  el  dibujo  en  la  misma  ventana  hay  que  añadir  wx  delante 
en  la  forma: 

“wxplot3d(f(x,y) ,  [x,a,b] ,  [y,c,d] )” 

Como  siempre,  se  puede  acceder  al  comando  plot3d  a  través  del  menú: 

“Gráficos-Gráficos  3D”  y  hay  diversas  opciones  con  las  que  podemos 
experimentar.  Veamos  algunos  ejemplos: 
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(°/0il60)  plot3d(sin(x*y)  ,  [x,-2*%pi,2*°/„pi]  ,  [y, -1,1])  ; 

SALIDA:La  gráfica  correspondiente  sale  en  una  pantalla  emergente,  si  la 
queremos  en  línea,  basta  poner  el  wx  delante  como  viene  a  continuación. 

( %ol60) 

(°/0il61)  wxplot3d(sin(x*y)  ,  [x,-2*0/0pi,2*%pi]  ,  [y, -1,1] )  ; 

( %tl61) 


(%ol61) 

(°/oil62) plot3d(x~2-y“2,  [x,-5,5]  ,  [y, -5, 5],  [plot_format ,gnuplot]  , 

[gnuplot_preamble ,  "set  pm3d  at  s;  unset  surf;  unset  colorbox"])$ 
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( %ol62) 

(70il63) plot3d(x~2-y~2 ,  [x,-5,5]  ,  [y, -5, 5],  [plot_format,gnuplot] , 
[gnuplot_preamble ,  "set  hidden3d"])$ 


(%ol63) 
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2.3.3.  Gráficas  con  draw 

El  módulo  “draw”  permite  dibujar  gráficos  en  2  y  3  dimensiones  con 
relativa  comodidad,  para  ello  se  comienza  cargándolo  mediante  la  orden 

“load  (draw)” 

Luego,  se  introduce  alguna  de  las  órdenes 

■  gr2d(opciones,  objeto  gráfico,...)  para  un  gráfico  bidimensional 

■  gr3d(opciones,  objeto  gráfico,...)  para  un  gráfico  tridimensional 

■  draw(opciones,  objeto  gráfico,...)  dibuja  un  gráfico 

■  draw2d(opciones,  objeto  gráfico,...)  dibuja  gráfico  bidimensional 

■  draw3d(opciones,  objeto  gráfico,...)  dibuja  gráfico  tridimensional 

Una  vez  cargado  el  módulo  draw,  podemos  utilizar  las  órdenes  draw2d 
y  draw3d  para  dibujar  gráficos  en  2  y  3  dimensiones  o  draw.  Un  gráfico 
está  compuesto  por  varias  opciones  y  el  objeto  gráfico  que  queremos  dibujar. 
Las  opciones  son  numerosas  y  permiten  controlar  prácticamente  cualquier 
aspecto  imaginable.  Aquí  comentaremos  algunas  de  ellas  pero  conviene  recu¬ 
rrir  a  la  ayuda  del  programa  para  ampliar  conocimientos.  En  segundo  lugar 
aparece  el  objeto  gráfico  que  puede  ser  de  varios  tipos  aunque  los  que  más 
usaremos  son  quizás  explicit  y  parametric.  Para  dibujar  un  gráfico  tenemos 
dos  posibilidades: 

1.  Si  tenemos  previamente  definido  el  objeto,  draw(objeto),  o  bien, 

2.  draw2d( definición  del  objeto)  (o  bien  draw3d (definición  del  objeto))  si 
lo  definimos  en  ese  momento  para  dibujarlo. 

Veamos  diversos  ejemplos  y  observemos  las  diferentes  salidas. 

(°/0il64)  load  (draw)  $ 
objeto :gr2d( 
color=blue , 
nticks=60 , 

explicit (sin(3*t)  ,t,0,2*°/0pi) 

)$  draw (objeto) ; 


( %ol66) 
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(°/0il67) draw2d(color=red, explicit (sin(3*t)  , t ,0,2*°/„pi) )$ 


( %ol67) 

(70il68)  draw2d(color=red,  explicit  (sin (3*t)  ,t ,  0,2*°/„pi) , 

color=green,nticks=60,parametric(3*sin(t)  , 2*cos(t)  , t ,0,2*°/„pi) ) 


(%ol68) 
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(°/0il69)  draw2d(color=red, explicit  (sin(3*t)  , t , 0,2*°/0pi)  , 

color=green,nticks=60,parametric(3*sin(t)  ,2*cos(t)  , t ,  0,2*°/„pi) , 
color=blue , explicit (2*x+l , x , -2 , 5) ) ; 


( %ol69) 

(°/0il70)  draw2d(color=red, explicit (sin (3*t) ,  t ,  0,2*°/„pi) , 

color=green,nticks=60,parametric(3*sin(t)  ,2*cos(t)  ,  t  ,0,2*°/„pi) , 
color=blue, explicit (2*x+l,x, -2, 5) ,xrange=[-2,2] , yrange=[-2,2] ) 
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( %ol70) 

(0/oil71)draw3d( 

surf ace_hide=true , 
enhanced3d=true , 

implicit (x~2+y~2=z~2,x,-3,3,y,-3,3,z,-3,3)) ; 


( %ol71) 

Veamos  algunas  animaciones  con  “for”  o  con  el  comando  “with_slider” 
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(°/0il72)  load(draw) ;  kill(f)$  f  (x)  :  =sin(x)  ~2;  f  or  k :  1  step  2  thru  18  do 
wxdraw2d ( 
color=red, 

explicit(taylor(f (x) , x,0,k) ,x,-3,3) , 

color=blue , 

line_width=2 , 

explicit (f (x) ,x, -3 ,3) ) ; 

(%ol72)  C  :  /PROGRA2/MAXIMAl,0  —  2/share/maxima/5,28,0  — 

2/ share/draw / draw.lisp  (%ol74)  f(x)  =  sin(x)2 


-3-2-10123 
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( %ol83) 

Observación.  Se  observa  como  a  medida  que  aumenta  el  grado  de  los 
desarrollos  de  Taylor  estos  se  ajustan  mejor  a  la  función  en  todo  el  intervalo. 


2.4.  Ejercicios  propuestos 

Completar  con  Maxima  los  ejercicios  siguientes: 

1.  Hacer  una  lista  con  los  cuadrados  de  los  50  primeros  números  naturales, 
obtener  el  seno  de  cada  uno  de  ellos,  obtener  su  media  aritmética  y 
geométrica  (si  existe  esta  última). 

2.  Sean  los  vectores:  a  =  (2,  —1, 4,  0,  3),  b  =  (—1,  0,  2, 3, 1),  c  =  (0, 1,  —3, 4,  —7), 
se  pide  calcular:  2a  —  3b  +  c,  a.b ,  a  *  5,  ||  a  ||i,  ||  a  H2  y  ||  a  ||oo. 

3.  Construye  una  matriz  3  x  3,  A,  cuyo  elemento  =  i*  j  +  j  —  i.  Extrae 
su  segunda  columna,  su  primera  fila  y  el  elemento  (3,3).  Calcula  su 
determinante,  su  inversa  si  la  tiene,  su  rango  y  su  traspuesta.  Obtener 
el  núcleo  y  la  imagen  de  la  aplicación  lineal  definida  por  dicha  matriz 
y  sus  valores  y  vectores  propios. 

4.  Con  vuestro  número  de  DNI  construir  una  matriz  3  x  3,  A  ,  completando 
con  unos  a  la  derecha  hasta  tener  nueve  cifras  que  repartir  entre  las  tres 
filas  de  A.  Calcular  también  las  normas  matriciales:  ||  A  ||1;  ||  A  ||2  y 
||  A  Hoo  (la  definición  de  estas  normas  se  puede  ver  en  el  tercer  capítulo 
de  los  apuntes). 
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5.  Define  listal:  makelist(i,i,2,21),  lista2:makelist(i,i,22,31).  Realiza  las  si¬ 
guientes  operaciones  usando  algunos  de  los  comandos  vistos. 

■  Multiplica  cada  elemento  de  “listal”  por  todos  los  elementos  de 
“lista2” .  El  resultado  será  una  lista  con  20  elementos  (que  a  su  vez 
serán  listas  de  10  elementos),  a  la  que  denominaréis  “productos”. 

■  Calcula  la  suma  de  cada  una  de  las  listas  que  forman  la  lista  “pro¬ 
ductos”  (no  te  equivoques,  comprueba  el  resultado).  Obtendrás 
una  lista  con  20  números. 

■  Calcula  el  producto  de  los  elementos  de  la  lista  obtenida  en  el 
apartado  anterior. 

6.  Hallar  las  raíces  de  la  ecuación:  [x  —  l){x  —  2) ...  {x  —  19) (a:  —  20)  + 

10-7.3.19  =  0. 

7.  Averiguar  si  cotg(x )  =  o(l/x)  cuando  x  tiende  a  0.  Utilizando  el  desa¬ 
rrollo  de  McLaurin  probar  que  ex  —  1  tampoco  es  una  0(x2)  cuando  x 
tiende  a  cero. 

8.  Dada  la  integral  yn  =  J -^dx,  donde  a  es  la  última  cifra  de  vuestro 
DNI,  en  caso  de  ser  0  o  1  tomar  a  =  2.  Usar  la  fórmula  exacta  de 
reducción  yn  —  y  —  ayn- 1,  para  partiendo  de  yo  =  log (^-^),  calcular 
j/i6,  comparar  con  el  valor  exacto  dado  por  Maxima. 

9.  La  fórmula  de  reducción  para  la  integral  In+ 1  =  xn+1exdx  —  e  — 
(n  +  1  )In,  permite  obtener  su  valor  partiendo  de  Jo  =  e  —  1,  ob¬ 
tener  /18,  /2o,  /21,  /30,  hi,  Í40,  Un, . . .  contradice  esto  el  hecho  de  que 
liuin^ooln  =  0.  ¿Qué  se  puede  decir  de  la  estabilidad  de  este  algo¬ 
ritmo?. 

10.  Dibuje  con  draw2d,  en  una  misma  ventana,  la  función  f(x)  =  xsin(x )2 
y  sus  polinomios  de  Taylor  de  orden  2,  4,  6  y  8  todos  con  diferente  color, 
siento  el  trazo  de  f(x)  el  doble  de  grueso.  Elija  un  rango  adecuado  para 
que  se  vea  bien. 

11.  Dibujar  las  bolas  de  centro  el  origen  y  radio  1  para  las  normas  usuales 
de  M2. 


Capítulo  3 

Resolución  numérica  de 
ecuaciones  no  lineales 

3.1.  Más  sobre  los  comandos  generales  de  Má¬ 
xima  para  resolver  una  ecuación  o  siste¬ 
ma  algebraico 

3.1.1.  El  comando  “solve” 

Volvamos  a  insistir  sobre  alguno  de  los  comando  generales  de  Maxima  pa¬ 
ra  resolver  ecuaciones  algebraicas  no  lineales,  por  ejemplo  la  función  “solve” 
que  nos  resuelve  una  ecuación  algebraica  sencilla  de  manera  exacta,  bien  sea 
lineal  o  no  lineal.  Aunque,  como  ya  vimos,  no  siempre  le  será  posible  encon¬ 
trar  solución,  como  ocurre  por  ejemplo  para  las  ecuaciones  polinómicas  de 
grado  mayor  a  4  no  resolubles  por  radicales. 

(°/0il)  solve (x~2-3*x+l=0,x)  ; 

a/5  —  3  V5  +  3 

—2~  ’x  = 

También  podemos  resolver  ecuaciones  que  dependan  de  algún  paráme¬ 
tro,  pero  en  este  caso  siempre  hemos  de  indicar  respecto  de  que  variable 
resolvemos 


(°/0i2)  eql :  x~3-a*x~2-x~2+2*x=0 ; 

(  %o2)  x3  —  a  x2  —  x2  +  2  x  =  0 

(°/0i3)  solve (eql ,x) ; 
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\¡  o?1  T  2  a,  —  7  —  a  —  1  \Zo2  +  2  a  —  7  +  a,  +  1  , 

(%o3)  [x  = - - - ,z  = - ~ - ,^  =  0J 

En  el  caso  de  ecuaciones  de  una  sola  variable  podemos  ahorrar  el  escri¬ 
birla,  pues  basta  poner 

(°/0i4)  solve  (x~2+2*x=0)  ; 

( %o4)  [x  =  —2,  x  =  0] 

(°/0i5)  solve(x~2+2*x=0,x)  ; 

(%o5)  [x  =  -2,x  =  0] 

También  podemos  ahorrarnos  el  escribir  el  segundo  término  de  la  ecuación 
si  éste  es  cero 

(°/0i6)  solve  (x~2+2*x)  ; 

(%o6)  [x  =  -2,x  =  0\ 

Cuando  buscamos  las  raíces  de  un  polinomio  a  veces  tenemos  que  tener 
en  cuenta  la  multiplicidad 

(°/0i7)  solve  (x~7-2*x~6+2*x~5-2*x~4+x~3=0 ,  x)  ; 

( %o7)  [x  =  —i,  x  =  i,  x  =  1,  x  =  0] 

lo  que  se  pide  mediante  el  comando  “multiplicities” ,  como  sigue 

(°/0i8)  multiplicities; 

(%o8)  [1,1,  2,  3] 

Como  señalamos  antes,  cuando  sea  necesario,  hay  que  tener  cuidado  de 
no  olvidar  indicarle  la  variable  respecto  de  la  cual  resolvemos 

( °/o i 9 )  eql  :x~3-a*x~2-x~2+2*x=0; 

( %o9)  x3-ax2-i2  +  2i  =  0 

( °/o i  1 0 )  solve(eql); 

solve:  more  unknowns  than  equations.  Unknowns  given  :  [a,x]  Equations  gi- 
ven:  [x3  —  a  x2  —  x2  +  2  x  =  0]  -  an  error.  To  debug  this  try:  debugmode(true); 

(°/0ill)  solve  (eql ,  a)  ; 


( %oll)  [a  = 


x 


x  +  2, 


x 


3.1.  Más  sobre  los  comandos  generales  de  Maxima  para  resolver 
una  ecuación  o  sistema  algebraico  85 


(°/0il2)  solve(eql ,x) ; 

,(w  r  \J o?  +  2  a  —  7  —  a  —  1  \/a2  +  2  a  —  7  +  a,  +  1  , 

(%ol2)  [x  = - - - ,x  = - - - ,x  =  0] 

La  orden  solve  no  sólo  puede  resolver  ecuaciones  algebraicas 
(°/0il3)  solve(sin(x)*cos(x)=0,x) ; 

solve  :  using  arc—trig  functions  to  get  a  solution.  Some  Solutions  will  be  lost. 
(%ol3)  [x  —  0,  x  — 

¿Qué  ocurre  aquí?  La  expresión  sen(x)  ■  cos(x)  vale  cero  cuando  el  seno 
o  el  coseno  se  anulen.  Para  calcular  la  solución  de  sen(x)=0  aplicamos  la 
función  arcoseno  a  ambos  lados  de  la  ecuación.  La  función  arcoseno  vale  cero 
en  cero  pero  la  función  seno  se  anula  en  muchos  más  puntos.  Nos  estamos 
dejando  todas  esas  soluciones  y  de  eso  es  de  lo  que  nos  está  avisando  Maxima. 
Como  cualquiera  puede  imaginarse,  Maxima  no  resuelve  todo.  Incluso  en  las 
ecuaciones  más  “sencillas” ,  los  polinomios,  se  presenta  el  primer  problema:  en 
general,  no  hay  una  fórmula  en  términos  algebraicos  para  obtener  las  raíces 
de  un  polinomio  de  grado  5  o  más.  Pero  no  hay  que  ir  tan  lejos,  cuando 
añadimos  raíces,  logaritmos,  exponenciales,  etc.,  la  resolución  de  ecuaciones 
se  complica  mucho.  En  esas  ocasiones  lo  más  que  podemos  hacer  es  ayudar 
a  Maxima  a  resolverlas. 

(°/0il4)  eq:x+3=sqrt(x+l)  ; 

( %ol4)  x  +  3  =  \fx  +  1 
(°/0il5)  solve(eq,x); 

( %ol5)  [x  =  Vx  +  1  -  3] 

(70il6)  solve(eq~2); 


(%o!6)  [x 


V7i  +  5 
2 


V7i-  5 
~  2  ^ 


Uno  de  los  ejemplos  usuales  en  los  que  utilizaremos  las  soluciones  de 
una  ecuación  es  en  el  estudio  de  una  función.  Necesitaremos  calcular  puntos 
críticos,  esto  es,  ceros  de  la  derivada.  El  resultado  de  la  orden  solve  no  es  una 
lista  de  puntos,  es  una  lista  de  ecuaciones.  Una  primera  solución  consiste  en 
usar  la  orden  “rhs”  e  ir  recorriendo  una  a  una  las  soluciones: 


(°/0il7)  sol :  solve (x~2-4*x+3)  ; 
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( %ol7)  [x  =  3,  x  =  1] 

(°/0il8)  rhs(part(sol,  1)) ; 

( %ol8)  3 

(°/0il9)  rhs(part(sol,2)) ; 

( %ol9)  1 

Este  método  no  es  práctico  en  cuanto  tengamos  un  número  un  poco  más 
alto  de  soluciones.  Tenemos  que  encontrar  una  manera  de  aplicar  la  orden  rhs 
a  toda  la  lista  de  soluciones.  Eso  es  justamente  para  lo  que  podemos  utilizar 
la  orden  map: 

(°/,i20)  sol :map(rhs, solve (x~2-4*x+3)) ; 

(%o20)  [3,1] 

También  podemos  resolver  sistemas  de  ecuaciones.  Sólo  tenemos  que  es¬ 
cribir  la  lista  de  ecuaciones  y  de  incógnitas.  Por  ejemplo: 

( °/o i 2 1 )  solve  (  [x~2+y~2=l ,  (x-2)  ~2+(y-l)  "2=4]  ,  [x,y]  )  ; 

( %o21)  [[i=ly  =  -!],[x  =  0,!,  =  l]] 

Siempre  hay  que  tener  en  cuenta  que,  por  defecto,  Maxima  da  todas  las 
soluciones  incluyendo  las  complejas,  aunque  muchas  veces  no  pensemos  en 
ellas.  Por  ejemplo,  la  recta  x+y  =  5  es  exterior  a  la  circunferencia  x2+y2  =  1, 
por  tanto  no  la  corta  en  el  plano  real,  pero  si  en  el  complejo. 

(°/0i22)  solve  ( [x~2+y~2=l  ,x+y=5]  ,  [x,y]  )  ; 

y/23i  —  5  V?3i  +  5,  r  y/23i  +  5  y/23  i  -  5 

2  ’  ^  2  J  >  \P^  2  ■ ^ 

Observación.  Para  resolver  sistemas  lineales  utilizamos  preferiblemente 
el  comando  “linsolve( [ecuaciones], [incógnitas])”. 

Si  la  solución  depende  de  un  parámetro  o  varios,  Maxima  utilizará  %rl, 
%r2,-  •  ■  para  referirse  a  estos.  Por  ejemplo: 

(°/0i23)  solve  ( [x+y+z=3 ,  x-y=z]  ,  [x , y ,  z] )  ; 

( %o23)  [[!  =  ?  y  =  -2%r21~3,^  =  %rl}] 

¿Qué  pasa  si  el  sistema  de  ecuaciones  no  tiene  solución? 
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(°/oi24)  solve  (  [x+y=0 ,  x+y=l]  ,  [x ,  y]  )  ; 

(%o24)  [] 

¿Y  si  todos  los  valores  de  x  cumplen  la  ecuación? 

(70i25)  solve  (  (x+1)  ~2=x~2+2*x+l  ,x)  ; 

( %o25)  [x  =  x] 

Maxima  nos  dice  que  el  sistema  se  reduce  a  x  =  x  que  claramente  es  cierto 
para  todo  x.  El  siguiente  caso  es  similar,  obviamente  ( x  +  y )2  =  x2  +  2 xy  +  y2, 
¿qué  dice  al  respecto  Maxima?. 

(°/0i26)  solve  ( (x+y)  ~2=x~2+2*x*y+y~2 ,  [x,y]); 

solve  :  dependent  equations  eliminated  :  (1)  ( %o26)  [[x  =  %r3,y  =  %r2]] 
En  otras  palabras,  x  puede  tomar  cualquier  valor  e  y  lo  mismo. 

3.1.2.  El  comando  “algsys” 

La  orden  “algsys”  resuelve  ecuaciones  o  sistemas  de  ecuaciones  algebrai¬ 
cas.  La  primera  diferencia  de  algsys  con  la  orden  solve  es  pequeña:  algsys 
siempre  tiene  como  entrada  listas,  en  otras  palabras,  tenemos  que  agrupar  la 
ecuación  o  ecuaciones  entre  corchetes  igual  que  las  incógnitas. 

“algsys ([ecuaciones], [variables])”  resuelve  la  ecuación  o  ecuaciones 

Si  la  variable  opcional  “realonly”  vale  true,  algsys  muestra  sólo  solucio¬ 
nes  reales. 

C/.Í27)  eq:x~2-4*x+3; 

( %o27)  x2  -4x  +  3 
(°/oi28)  algsys  (  [eq]  ,  [x]  )  ; 

(%o28)  [[x  =  3],  [x  =  1]] 

La  segunda  diferencia  es  que  algsys  intenta  resolver  numéricamente  la 
ecuación  si  no  es  capaz  de  encontrar  la  solución  exacta. 

(°/0i29)  solve(eq:x~6+x+l)  ; 

( %o29)  [0  =  x6  +  x  +  1] 
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(°/oi30)  algsys (  [eq]  ,  [x] ) ; 

Salida  ( %o30) 

[[x  =  —1,038380754458461  i  —  0,15473514449684], 

[x  =  1,038380754458461  i  —  0,15473514449684], 

[x  =  —0,30050692030955  i  -  0,79066718881442], 

[x  =  0,30050692030955  i  —  0,79066718881442], 

[x  =  0,94540233331126  -  0,61183669378101  i], 

[x  =  0,61183669378101  i  +  0,94540233331126]] 

En  general,  para  ecuaciones  polinómicas  algsys  nos  permite  algo  más  de 
flexibilidad  ya  que  funciona  bien  con  polinomios  de  grado  alto  y,  además, 
permite  seleccionar  las  raíces  reales.  El  comportamiento  de  algsys  está  deter¬ 
minado  por  la  variable  realonly.  Su  valor  por  defecto  es  false.  Esto  significa 
que  algsys  muestra  todas  las  raíces.  Si  su  valor  es  true  sólo  muestra  las  raíces 
reales. 

( °/o i 3 1 )  eq:x~4-l=0; 

( %o31)  x4  -  1  =  0 
(70i32)  realonly; 

( %o32)  false 

(0/oi33)  algsys  ( [eq]  ,  [x] ) ; 

(%o33)  [[x  =  1],  [x  =  —1],  [x  =  i],  [x  =  —i]] 

(7>i34)  realonly: true; 

( %o34)  true 

(7,i35)  algsys  ( [eq]  ,  [x] ) ; 

(%o35)  [[x  =  l],[x  =  -1]] 

3.1.3.  Los  comandos  “allroots”  y  “realroots” 


Las  ecuaciones  polinómicas  se  pueden  resolver  de  manera  aproximada  me¬ 
diante  los  comandos  “allroots”  y  “realroots” ,  que  están  especializados  en 


3.2.  A  vueltas  con  el  método  de  bipartición 
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encontrar  soluciones  racionales  aproximadas  de  polinomios  en  una  variable. 
Se  escriben  en  la  forma: 

“allroots(polinomio)”  soluciones  aproximadas  del  polinomio 

“realroots(polinomio)”  soluciones  aproximadas  reales  del  polinomio 

Estas  órdenes  nos  dan  todas  las  soluciones  y  las  soluciones  reales  de  un 
polinomio  en  una  variable  y  pueden  ser  útiles  en  polinomios  de  grado  alto. 

C/.Í36)  eq:x~9+x~7-x~4+x; 

( %o36)  x9  +  x7  —  x4  +  x 

(°/0i37)  allroots  (eq)  ; 

Salida  ( %o37) 

[x  =  0,0,  x  =  0,30190507748312  i  +  0,84406777982779, 

x  =  0,84406777982779  -  0,30190507748312  *, 
x  =  0,89231329168876*  —  0,32846441923836, 
x  =  -0,89231329168876*  -  0,32846441923836, 
x  =  0,5110407920843* -  0,80986929589483, 
x  =  —0,5110407920843*  —  0,80986929589483, 
x  =  1,189238256723473*  +  0,2942659353054, 
x  =  0,2942659353054  -  1,189238256723473*] 

(°/0i38)  realroots  (eq) ; 

( %o38)  [x  =  0] 

3.2.  A  vueltas  con  el  método  de  bipartición 

Aunque  ya  vimos  este  método  en  la  primera  práctica,  volvamos  a  aplicarlo 
para  resolver,  por  ejemplo  la  ecuación  /(x)  =  x6  +  x  —  5  =  0  en  el  intervalo 
[0,  2],  utilizando  el  método  de  bipartición  o  bisección  y  determinado  el  número 
máximo  de  pasos  a  realizar.  Notemos  en  primer  lugar  que  /(0)  =  —5  y 
/( 2)  =  61,  por  tanto  /(x)  posee  al  menos  una  raíz  en  dicho  intervalo;  por 
otro  lado,  como  f'{x)  =  6x5  +  1  >  0  para  todo  x  G  [0,2],  se  deduce  que 
existe  una  única  raíz  en  dicho  intervalo.  Seguidamente  iremos  subdividiendo 
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el  intervalo  por  su  punto  medio,  hasta  que  el  valor  de  /  en  dicho  punto  sea 
muy  pequeño,  por  ejemplo  menor  que  el  épsilon  de  máquina,  en  cuyo  caso 
diríamos  que  es  la  “solución  exacta  de  máquina” ,  o  bien  podemos  seguir  hasta 
que  el  subintervalo  conteniendo  a  la  raíz  tenga  una  amplitud  menor  que  una 
magnitud  Error  dada  de  antemano,  en  cuyo  caso  saldríamos  diciendo  que  la 
“aproximación  buscada  es”.  Supongamos  que  elegimos  Error  =  10~6,  como 
los  extremos  del  intervalo  son  a  =  0  y  b  =  2,  sabemos  que  si  realizamos 
el  método  n  veces,  la  amplitud  del  enésimo  subintervalo  será  en  nuestro 
caso  bn  —  an  —  (b  —  a)/2n  =  l/2n_1,  ahora  si  damos  como  aproximación  el 
punto  medio  c  de  este  último  subintervalo,  el  error  absoluto  que  cometeremos 
será  menor  que  l/2n  y  si  queremos  que  sea  menor  que  10-6,  basta  con  tomar 
n  >  log2(  106) ,  por  ejemplo  n  =  [Zog2(l O6)]  +  1,  siendo  [r]  la  parte  entera  del 
número  real  x.  Y  el  programa  de  Maxima  puede  escribirse  como  sigue: 


(70i39)  f  (x)  :=x~6+x-5; 

( %o39)  f  (x)  :=  x6  +  x  —  5 

(°/0i40)  log2(x)  :=log(x)/log(2)  ; 

( %o40)  log2(x):=!HiM 
log  (2) 

(°/oi41)  a :  0 ; 

( %o41)  0 


(7„i42)  b :  2 ; 
( %o42)  2 


(7oi43)  Error :  10"  (-6)  ; 


(%o43) 


1 

1000000 


(7oi44)  nmaxpasos  :  entier(log2(  (b-a) /Error)  )+l ; 
( %o44)  21 


3.2.  A  vueltas  con  el  método  de  bipartición 
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(°/0i45)  for  i :  1  thru  nmaxpasos  do 

( 

c: (a+b)/2, 

if  abs (f (c) )<2*10~ (-16)  then  (print("La  solución  exacta 

de  máquina  es  ") ,return(c) ) 

else(  if  f(a)*f(c)<0  then  b:c  else  a:c)); 

print("La  aproximación  buscada  es  c  =  ",float(c))$ 

(%o45)  done 

La  aproximación  buscada  es  c  =  1,246628761291504. 

El  programa  anterior,  puede  escribirse  como  una  función  mediante  un 
block,  aplicable  a  toda  ecuación  f(x )  =  0,  con  /  continua  en  [a,  b]  y  verifi¬ 
cando  f(a)f(b)< 0,  en  la  forma: 

(70i48)  biseccionl(f ,a,b, Error)  :=  block ( [numer]  ,numer  :true, 
if  (sign(f(a))  =  sign(f(b)))  then  (print (" ¡ Atención, 
f  tiene  el  mismo  signo  en  ",a,"  y  ",b,"!"),  return(f alse) ) , 
log2(x) :=log(x)/log(2) , 
nmaxpasos : entier(log2( (b-a) /Error) )+l , 
for  i:l  thru  nmaxpasos  do 
( 

c: (a+b)/2, 

if  abs (f (c) )<2*10~ (-16)  then 

(print("La  solución  exacta  de  máquina  es  " ,return(c))) 
else(  if  f(a)*f(c)<0  then  b:c  else  a:c) 

) 

J 

print ("La  aproximación  buscada  es  c  =  ",c) 

)$ 

Veamos  un  par  de  ejemplos  de  aplicación 

(°/0i49)  kill(f)$  f(x):=  x~6+x-5$  biseccionl  (f  ,  0 , 1 , 1CT-6)  $ 

¡Atención,  f  tiene  el  mismo  signo  en  0  y  1! 

(°/0i52)  f(x):=  x~6+x-5$  biseccionl  (f  , 0 , 2 , 10~-6) $ 

La  aproximación  buscada  es  c  =  1,246628761291504 
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3.2.1.  El  comando  “fincLroot” 

Maxima  dispone  de  la  función  “find_root(expr,  x,  a,  b)”,  que  utiliza 
el  método  de  la  bisección  para  resolver  ecuaciones  (aunque  si  la  función  es 
suficientemente  suave,  puede  aplicar  el  método  de  regula  falsi,  que  vemos 
sucintamente  en  el  párrafo  que  sigue);  este  comando  aproxima  una  raíz  de 
expr  o  de  una  función  /  en  el  intervalo  cerrado  [a,  b] ,  si  la  función  tiene  signos 
diferentes  en  los  extremos  del  intervalo  si  no  da  un  mensaje  de  error. 

(°/0i54)  f ind_root (x~6+x-5 ,  x,  0,  2); 

(%o54)  1,246628157210559 


3.3.  Método  de  Lagrange  (o  “regula  falsi”) 

El  método  de  Lagrange,  también  conocido  como  método  de  las  partes 
proporcionales  o  regula  falsi” ,  consiste  básicamente  en  reemplazar  la  gráfica 
de  /  restringida  al  intervalo  [a,  b]  por  la  recta  pasando  por  los  puntos  extremos 
A(a,f(a ))  y  B(b,f(b)).  Es  decir  se  sustituye  la  función  /  por  un  polinomio 
de  grado  uno  p(x)  y  se  resuelve  la  ecuación  p(x)  =  0;  el  punto  de  intersección 
de  la  recta  AB  con  el  eje  de  las  x  será  la  primera  aproximación  X\  de  la  raíz 
buscada;  luego  se  determina  en  cual  de  los  subintervalos  [a,  x±]  o  [x ¡ ,  b]  está  la 
raíz,  y  a  este  se  le  vuelve  a  aplicar  el  mismo  método  para  obtener  la  segunda 
aproximación  x2 ,  y  así  sucesivamente  hasta  obtener  una  aproximación  que 
consideremos  adecuada.  Aplicaremos  este  método  para  obtener  la  solución 
aproximada  de  la  ecuación  6x  —  ex  =  0  en  el  intervalo  [2,3]. 

(°/0i55)  al:  2$  bl:3$  f  (x)  :  =6*x-exp(x)  ; 


( %o57)  f  (x)  :=  6  x  —  exp  (x) 

Calculemos  y  representemos  la  recta  (en  rojo)  que  une  los  puntos  extremos 
(ai,  /(ai))  —  (bi,  f(b\))  frente  a  la  función  f(x)  (en  azul)  en  el  intervalo  [a1;  £q] 

(70i58)  rl  (x)  :  =f  (al)  +  (x-al)  *  (f  (bl)-f  (al) )  /  (bl-al)  ; 


(  %o58)  rl  (x)  :=  f  (al)  + 


(x 


al)  (f  (51)  —  f  (al)) 


bl  —  al 
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(%i59)  plot2d( [f (x) ,rl (x)] , [x,al,bl] ) ; 

( %o59) 


2  2.2  2.4  2.6  2.8  3 


Por  la  gráfica  se  ve  que  la  solución  de  f(x )  =  0  está  en  el  intervalo  [pl,  61], 
siendo  pl  el  punto  de  corte  de  rl{x)  con  el  eje  de  abscisas.  Al  ser  el  extremo 
izquierdo  del  intervalo  donde  está  la  solución,  lo  llamamos  a2. 

(°/0i60)  a2 :  (al*f  (bl)-bl*f  (al) ) / (f  (bl)-f  (al) )  ,numer ; 

( %o60)  2,688562249647141 

(0/0i61)  b2  :  b  1 ; 


(%o61)  3 

Ahora  repetimos  el  proceso  de  antes  para  el  nuevo  intervalo 
(70i62)  r2(x)  :  =f  (a2)  +  (x-a2)  *  (f  (b2)-f  (a2) )  /  (b2-a2)  ; 


(%o62)  r2(x)  :=  f  (a2)  + 


(x 


a2)  (f  (62)  -f  (a2)) 


62  —  a  2 


94 


Capítulo  3.  Resolución  numérica  de  ecuaciones  no  lineales 


(70i63)  plot2d(  [f  (x)  ,r2(x)]  ,  [x,a2,b2] )  ; 
( %o63) 


Otra  vez  el  intervalo  es  [p2,  61]  además  se  observa  que  ahora  las  dos  gráfi¬ 
cas  están  más  próximas.  Seguimos  el  proceso  hasta  que  se  vea  que  las  dos 
gráficas  cortan  al  eje  OX  prácticamente  en  el  mismo  punto  (que  es  la  solución 
de  f(x)  =  0  buscada). 

3.4.  Método  de  Newton-Raphson 

3.4.1.  Método  de  Newton-Raphson  en  una  variable 

Sea  la  ecuación  e~x  —  x  =  0,  queremos  aproximar  la  solución  de  dicha 
ecuación  en  el  intervalo  [0, 1]  por  el  método  de  Newton.  En  primer  lugar, 
veamos  que  podemos  aplicar  el  teorema  de  convergencia  global-2  de  dicho 
método  y  por  tanto  que  podemos  comenzar  a  iterar  por  cualquier  punto  del 
intervalo  dado,  por  ejemplo  por  el  punto  xO  =  0,5.  Para  ello,  comencemos 
escribiendo  la  función  y  calculando  sus  derivadas  primera  y  segunda 

(0/oi64)  f  (x)  :=°/0e~(-x)-x; 

( %o64)  f  (x)  :=  e~x  —  x 

(°/0i65)  def  ine(df  (x)  ,diff  (f  (x)  ,x) )  ; 

define (d2f (x) , dif f (f (x)  , x, 2) ) ; 

df (0) ; df (1.0) ; 


3.4.  Método  de  Newton-Raphson 
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(%o65)  df'  (x)  :=  -e~x  -  1 
(  %o66)  d2f  ( x )  :=  e~x 
(%o67)  -2 

( %o68)  -  1,367879441171442 

Puesto  que  la  derivada  segunda  es  positiva  en  todo  el  intervalo  la  pri¬ 
mera  es  estrictamente  creciente,  ahora  bien  como  f'(  1)  =  df(  1)  <  0  se 
sigue  que  la  derivada  primera  es  menor  que  0  en  todo  el  intervalo  [0,1], 
por  tanto  f(x )  =0  posee  una  única  raíz  en  dicho  intervalo.  Además,  como 
max{|/(0)/d/(0)|,  \f(l)/df(l)\}  <  \  <  1,  el  método  de  Newton  converge 
partiendo  de  cualquier  valor  inicial  en  [0, 1],  tomemos  pues  xO  =  0,5. 

(70i69)  max(abs  (f  (0)/df  (0) )  ,  abs  ( f  ( 1 )  / df  ( 1 ) ) )  ; 

(  %o69)  i 

La  derivada  de  la  función  en  xO  y  la  recta  tangente  en  dicho  punto  serán 
(7oi70)  xO :  0 . 5 ;  df(xO); 

( %o70)  0,5 

(%o71)  -1.606530659712633 
(%72)  rO  (x)  :  =f  (xO)  +df  (xO)  *  (x-x0) ; 

( %o72)  r0(x)  :=  f(x 0)  +  df(x 0)(x  —  xO) 

En  tanto  que  las  gráficas  que  siguen,  de  la  función  (en  color  azul)  y 
de  la  recta  tangente  (en  rojo)  en  el  intervalo  [0,1],  ponen  de  manifiesto  la 
extraordinaria  aproximación  del  método  en  este  caso. 
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(°/0i73)  plot2d(  [f  (x)  , rO(x)]  ,  [x,0, 1] ) ; 
( %o73) 


0  0.2  0.4  0.6  0.8  1 


El  cálculo  de  la  abscisa  del  punto  de  corte  de  la  tangente  con  el  eje  OX 
viene  dado  por 

(°/0i74)  xl  :x0-f  (x0)/df  (xO) ; 

(%o74)  0,56631100319722 

Realizamos  la  segunda  iteración,  para  ello  calculamos  en  primer  lugar  la 
pendiente  en  xl  y  la  recta  tangente  en  el  punto  correspondiente  a  esta  nueva 
abscisa 

(7.175)  df(xl); 

(%o75)  -  1,567615513003238 

(7.176)  rl(x)  :=f  (xl)+df  (xl)*(x-xl)  ; 

( %o76)  rl(x)  :=  /(xl)  +  df(x l)(x  —  xl) 

(7.Í77)  plot2d(  [f  (x)  ,rl (x)]  ,  [x,0,l])  ; 


3.4.  Método  de  Newton-Raphson 
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( %o77) 


0  0.2  0.4  0.6  0.8  1 


Estando  dada  la  segunda  aproximación  de  la  raíz  buscada  por 
C/.Í78)  x2:xl-f  (xl)/df  (xl) ; 

( %o78)  0,56714316503486 

Para  la  tercera  iteración  procedemos  de  la  misma  manera,  omitiendo  aho¬ 
ra  la  gráfica,  obteniendo 

(7.179)  df(x2); 

(%o79)  -  1,567143361515334 

(7.Í80)  r2  (x)  :  =f  (x2)  +df  (x2)  *  (x-x2)  ; 

(%o80)  r2(x)  :=  f(x 2)  +  df(x2)(x  —  x2) 

(°/0i81)  x3:x2-f  (x2)/df  (x2)  ; 

(%o81)  0,56714329040978 

Finalmente,  podemos  acotar  el  error  de  x3  en  la  forma  |x3— r  |  <  |/(x3) \/m, 
siendo  0  <  m  <  \f'(x)\  para  todo  x  G  [0, 1]  y  r  la  raíz  exacta  buscada. 

(70i82)  print("El  error  absoluto  de  x3  <=  "  ,abs(f  (x3)/l  .3))$ 

El  error  absoluto  de  x3  <  3,4160708450004814  10-15 
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3.4.2.  Funciones  para  el  método  de  Newton-Raphson 

Supongamos  que  se  cumplen  condiciones  suficientes  para  aplicar  el  méto¬ 
do  de  Newton  para  aproximar  la  raíz  de  una  ecuación  f(x)  =  0  en  un  intervalo 
[a,  b ],  partiendo  de  un  punto  xO  (lo  cual  se  puede  estudiar  a  priori,  de  acuer¬ 
do  con  los  resultados  vistos  en  teoría),  vamos  a  escribir  una  función  que  nos 
dé  una  aproximación  de  la  raíz  parando  el  programa  cuando  se  sobrepase 
el  número  máximo  de  iteraciones  previstas  o  bien  cuando  la  diferencia  en¬ 
tre  dos  aproximaciones  consecutivas  sea  menor  que  un  cierto  épsilon  dado, 
podríamos  hacerlo  mediante  el  siguiente  block. 

(°/0i83)  newtonO(f  ,x0, epsilon, nmax)  :=  block( 

[numer] , numer : true , x [0] :x0, 
define (Df (x) , diff  (f  (x)  ,x) ) , 
for  i:l  thru  nmax  do 
( 

x  [i]  :x[i-l]-f  (x[i-l])/Df  (x  [i-1]  )  , 
if  abs(x[i] -x[i-l] )<  epsilon  then 
return( (print ("La  aproximación  buscada  es 
x(",i,")  =  ",x[i]))) 

), 

if  abs(x[nmax] -x[nmax-l] )  >=  epsilon  then 
print ("No  lograda  la  aproximación  deseada  en  ", 
nmax,"  iteraciones") 

)$ 

(°/0i84)  f  (x)  :  =°/„e~-x-x;newtonO(f  , 0 . 5, 10~-8,20)$ 

( %o84)  /(x)  =  e~x  —  x 

La  aproximación  buscada  es  x(4)  =  0,56714329040978 

En  tanto  que  el  error  absoluto  de  esta  aproximación  será  menor  que  10-16, 
como  se  ve  en  los  cálculos  que  siguen. 

(7.186)  abs(f  (x  [4] ) ) /1 . 3; 

(%o86)  8,5401771125012034 10"17 

Si  ponemos  nmax  =  3,  vemos  que  se  detiene  el  programa  por  haber 
superado  el  número  máximo  de  iteraciones  sin  conseguir  la  aproximación 
deseada 

(7.Í87)  f  (x)  :  =7„e~-x-x;  newton0(f  ,0.5, 10“-8,3)$ 

(%o87)  f(x):=e~x  —  x 


3.4.  Método  de  Newton-Raphson 
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No  lograda  la  aproximación  deseada  en  3  iteraciones 

Observación.  El  programa  anterior  puede  utilizarse  para  resolver  apro¬ 
ximadamente  ecuaciones  no  lineales  f(x)  =  0,  por  el  método  de  Newton,  si  no 
se  obtiene  la  aproximación,  podríamos  intentar  cambiar  el  número  máximo 
de  pasos  (nmax)  o  el  punto  inicial  (xO). 

La  función  newton  de  Maxima.  Hay  también  una  función  de  Maxima 
para  el  método  de  Newton,  se  trata  de  la  siguiente:  “newton(expresion, 
x,  xO,  eps)”,  pero  requiere  ejecutar  previamente  “load(newtonl)”  para 
cargar  el  paquete  correspondiente.  El  resultado  es  una  raíz  aproximada  de 
expresión,  en  la  variable  x,  comienza  a  iterar  por  xO  y  el  proceso  sigue  hasta 
que  se  cumple  que  ¡expresión]  <  eps.  Para  información  más  detallada  sobre 
este  comando  teclear  ?  newton.  Veamos  su  aplicación  al  ejemplo  anterior. 

(70i88)  load(newtonl) ; newton (70e~-x-x,x, 0.5, 10~-8)  ; 

(%o88)  C:/PROGRA  2/MAXIMA  1.0-2/share/maxima/5.28.0-2/ 
share  /  numeric  /  newtonl  .mac 
( %o89)  0.56714329040978 

3.4.3.  Método  de  Newton-Raphson  en  varias  variables 

Dado  el  sistema 


fi{xljx2)  =  0 
f2(xi,x2)  =  o 

con  /(x)  =  /(x i,x2)  =  (/i(xi,  x2),  f2(xi,  x2))  de  clase  C73)  en  un  entorno 
de  la  raíz  buscada  r  =  (ri,r2)  y  con  jacobiano  inversible  en  r,  pasamos  al 
sistema  equivalente 

x\  =  gi(x\,x2) 
x2  =  g2{x  i,x2) 

donde  ahora  es  g(x)  =  x  —  Jj1(x)f(x).  El  método  definido  por  esta  g  se 
denomina  método  de  Newton  para  sistemas,  es  localmente  convergente 
con  convergencia  de  segundo  orden  y  viene  dado  por  el  algoritmo 


La  aplicación  de  este  método  requiere  que  Jf(x('m'))  sea  inversible  para 
todo  m  y  en  1a,  práctica  se  suele  presentar  en  1a,  forma 

J/(x(m))(x(m+1)  -x(m))  =  -/(x(m)) 
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y  llamando  ó 0”)  =  x^m+1^  —  x^m\  el  método  consiste  en 


Hallar  5 verificando  el  sistema  lineal 

Jf(x^)6^  = 

y  obtener  la  aproximación  siguiente  en  la  forma 

x(m+l)  =  x{m)  +  ó(m)  >  Q) 


A  modo  de  ejemplo,  vamos  a  aproximar  la  solución  del  sistema:  x2  + 
y2  —  2  =  0,  x2  —  y  +  1  =  0  en  el  primer  cuadrante,  utilizando  el  método 
de  Newton-Raphson  comenzando  a  iterar  por  el  punto  (x0,?/0)  =  (0,5,1)  y 
haciendo  tres  iteraciones.  Ahora,  identificaremos  x\  =  x,  X2  =  y ,  5\  =  d\  y 
62  =  d 2  y  calculamos  la  matriz  jacobiana 

C/.Í90)  kill  (all)  $ 

f :matrix( [x~2+y~2-2] , [x“2-y+l] ) ; 
d:matrix(  [di] ,  [d2] ) ; 

J : jacobian( [x~2+y~2-2,x~2-y+l] , [x,y] ) ; 

J . d=-f ; 


( %ol) 


( %o2) 


( %o3) 


( %o4) 


Seguidamente  le  damos  valores  iniciales  aiet/y  calculamos  los  primeros 
incrementos 

(70i5)  numer:true$  x:0.5$  y :  1$ 

linsolve ( [2*x*dl+2*y*d2=-x~2-y~2+2 , 

2*x*dl-d2=-x~2+y-l] , [di ,d2] ) ; 


(  %o8)  [di  =  0,083333333333333,  d2  =  0,33333333333333] 
Hallamos  la  primera  aproximación  en  la  forma 

(7,i9)  x :  x+0 . 083333333333333 ;  y :  y+0 . 33333333333333 ; 

( %o9)  0,58333333333333 
( %ol0)  1,33333333333333 


Ahora  realizamos  la  segunda  iteración,  partiendo  de  los  valores  actuali¬ 
zados  obtenemos  los  nuevos  incrementos 
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( °/o i  1 1 )  linsolve  ( [2*x*dl+2*y*d2=-x~2-y~2+2 , 

2*x*dl-d2=-x~2+y-l] , [di , d2] ) ; 

(  %oll)  [di  =  -0,031926406926407,  d2  =  -0,030303030303027] 
con  lo  que  las  nuevas  aproximaciones  serán 
C/.Í12)  x :  x-0 . 031926406926407 ;  y :  y-0 . 030303030303027 ; 

( %ol2)  0,55140692640693 
( %ol3)  1,303030303030303 

Repitiendo  para  una  tercera  iteración  tendremos  los  incrementos 

(°/0il4)  linsolve ( [2*x*dl+2*y*d2=-x~2-y~2+2 , 

2*x*dl-d2=-x~2+y-l] , [di ,d2] ) ; 

(%ol4)  [di  =  -0,0011551748007612,  d2  =  -2,5464731347085587 10~4] 
Resultando  la  tercera  iteración  que  sigue 
C/,i  15)  x :  x-0 . 0011551748007612 ;  y :  y-2 . 5464731347085587*l(T-4 ; 

(%ol5)  0,55025175160616 
(%ol6)  1.302775655716832 

Podemos  comprobar  en  que  medida  verifica  las  ecuaciones  la  tercera  apro¬ 
ximación  obtenida 

(°/0il7)  f  :matrix(  [x~2+y~2-2]  ,  [x~2-y+l] ) ; 

(0/  .  A, 3992740743873355  10"6\ 

[  /ool7J  ^  334428820332078710-7 

Finalmente,  lo  hacemos  directamente  y  lo  comparamos  con  la  solución 
del  primer  cuadrante,  que  es  una  buena  aproximación  de  la  segunda  de  las 
que  siguen: 

(°/0il8)  kill (all) $algsys ( [x~2+y~2-2=0,x~2-y+l=0]  ,  [x,y] )  ; 

( %ol)  [[x  =  -0,55025052270034,  y  =  1,302775637731995] , 

[x  =  0,55025052270034,  y  =  1,302775637731995], 

[x  =  -1,817354021023971  i,  y  =  -2,302775637731995], 

[x  =  1,817354021023971  i,y  =  -2,302775637731995]] 
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Función  newton  de  Maxima  para  sistemas.  Hay  también  una  fun¬ 
ción  de  Maxima  del  método  de  Newton  para  sistemas  no  lineales,  se  trata  de 
la  siguiente:  “newton  ( [ecuaciones] ,  [variables] ,  [aproximacionesiniciales] ) ” , 

donde  [ecuaciones]  es  la  lista  de  ecuaciones  a  resolver,  [variables]  es  la  lis¬ 
ta  con  los  nombres  de  las  incógnitas  y  [aproximacionesiniciales]  es  la  lis¬ 
ta  de  aproximaciones  iniciales,  también  se  requiere  ejecutar  previamente 
“load(“mnewton”)”  para  cargar  el  paquete  correspondiente.  La  solución 
se  devuelve  en  el  mismo  formato  que  lo  hace  la  función  “solveQ”.  Si  no  se 
encuentra  solución  al  sistema,  se  obtiene  “[]”  como  respuesta.  Para  una  in¬ 
formación  más  completa  sobre  este  comando  teclear  ?  mnewton.  Veamos  su 
aplicación  al  ejemplo  anterior. 

(°/0i2)  load  ("mnewton")  ;  mnewton  ( [x~2+y~2-2  ,x~2-y+l]  ,  [x,y]  ,  [0 . 5, 1] )  ; 

(%o2)  C:/PROGRA  2/MAXIMA  1.0-2/share/maxima/5.28.0-2/ 
share  /  mnewton  /  mnewton .  mac 

(  %o3)  [[x  =  0,55025052270034,  y  =  1,302775637731995]] 

3.5.  Ejercicios  propuestos 

Completar  con  Maxima  los  ejercicios  siguientes: 

1.  Utilizar  alguno  de  los  comandos  de  Maxima  para: 

a)  Resolver  la  ecuación  no  lineal  x 4  +  7x3  +  2x  +  1  =  0. 

b )  Hallar  las  raíces  reales  del  polinomio  s(x)  =  x‘  —  x6  +  5a:2  +  x  +  2. 

c)  Obtener  todas  las  raíces  del  polinomio  x8  —  36x7  +  546a;6—4536x5  + 
22449a;4  — 67284a;3  +  118124a;2  —  109584a;  +  40320  y  también  las  del 
polinomio  perturbado:  x8  —  36,001a;7  +  546a;6  —  4536a;5  +  22449a;4  — 
67284a;3  +  118124a;2  -  109584a;  +  40320. 

d)  Resolver  el  sistema  de  ecuaciones 


2.  Aplicar  el  método  de  bisección  para  hallar  una  raíz  aproximada  de  la 
ecuación  6a;  —  ex  =  0  en  el  intervalo  [2,  3]  con  un  error  menor  que  10-7. 

3.  Realizar  3  iteraciones  del  método  de  Regula  Falsi  para  hallar  una  raíz 
de  la  ecuación  x6  +  x  —  5  =  0  en  el  intervalo  [0,  2], 


3.5.  Ejercicios  propuestos 
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4.  Resolver  la  ecuación  a:3  —  3a;  —  2  =  0  por  el  método  de  Newton  empe¬ 
zando  por  el  punto  3  para  calcular  la  raíz  positiva  r  —  2  del  polinomio. 
Verificar  qne  el  orden  numérico  de  convergencia  es  p  =  2. 

5.  Para  la  ecuación  x3  —  3x  —  2  =  0,  utilizar  el  método  de  Newton  em¬ 
pezando  por  el  punto  —2  para  calcular  la  raíz  doble  negativa  r  —  —  1 
del  polinomio.  Verificar  que  el  orden  numérico  de  convergencia,  en  este 
caso  de  raíz  múltiple,  se  convierte  en  lineal  p  —  1. 

6.  Resolver  la  ecuación  x3  —  3x  —  2  =  0  por  el  método  de  la  secante 

empezando  por  los  puntos  xq  =  4  y  x\  =  3  para  calcular  la  raíz  positiva 
r  —  2  del  polinomio.  Verificar  que  el  orden  numérico  de  convergencia 
es  p  =  ~  1,6. 

7.  Para  la  ecuación  x3  —  3x  —  2  =  0,  utilizar  el  método  de  la  secante 
empezando  por  los  puntos  —2  y  —1,5  para  aproximar  la  raíz  doble 
negativa  r  —  —  1  del  polinomio.  Verificar  que  el  orden  numérico  de 
convergencia,  en  este  caso  de  raíz  múltiple,  se  convierte  en  lineal  p  —  1. 

8.  Se  tiene  una  función  de  iteración  g  :  I  — >•  /  que  define  un  método  de 
punto  fijo  convergente  xn+\  =  g(xn)  que  resuelve  el  problema  f(x)  =  0. 
Suponer  que  la  función  de  iteración  g  es  contractiva  ya  que  cumple 
\g'{x)  <  k  =  0,7  <  1.  Es  decir,  la  constante  de  contractividad  es  k. 
Como  el  método  es  convergente  se  sabe  que  la  distancia  del  iterado  xn 
a  la  raíz  r  puede  estimarse  por 

k  kn 

\xn  -  r\  <  - - T\xn  -  xn-i\  <  - - - \Xi  -  x0 \. 

1  —  k  1  —  k 

Suponer  ahora  que  /  =  [0, 1],  que  tomamos  Xq  =  0  y  que  g(x o)  =  0,5. 
Determinar  usando  wxmaxima  cuántas  iteraciones  son  necesarias  para 
asegurar  un  error  menor  que  10~5. 


Capítulo  4 

Resolución  numérica  de 
sistemas  lineales 


4.1.  Introducción 


Como  ya  vimos,  la  resolución  de  sistemas  lineales,  se  puede  hacer  con 
solve,  como  puede  verse  en  el  ejemplo  que  sigue. 

( °/o i  1 )  solve ( [x-y=3,x+y=l]  ,  [x,y] ) ; 

(%ol)  [[x  =  2,y  =  -l]] 

Pero  se  dispone  de  un  comando  más  eficiente,  que  funciona  como  solve, 
se  trata  del  comando  “linsol  ve  ([ecuaciones],  [variables])”  que  resuelve  el 
sistema  lineal  [ecuaciones]  respecto  a  las  variables  [variables],  como  se  ve  en  el 
ejemplo: 

(0/,i2)  linsolve(  [x-y=3,x+y=l]  ,  [x,y]); 


(%o2)  [x  =  2,y  =  -l] 

También  se  puede  definir  el  sistema  de  ecuaciones  separadamente. 


(°/0i3)  p:  [3*x+5*y-4*z=l,x+2*y+3*z=-2,-4*x+y-3*z=4]  ; 

(  %o3)  [—4  z+5y+3x=  1,3  z  +  2y  +  x  =  —2,  —  3z  +  y  —  4x  =  4] 

(°/oi4)  linsolve(p,  [x,y,z] ) ; 


61  11  _  59 

1Ó8,2/  “  108 ’  Z  ~  _  108 

No  hay  problema  cuando  hay  infinitas  soluciones. 
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(°/0i5)  p :  [x+y+3*z=l ,  3*x+5*y-z=2,  -x-3*y+7*z=0] ; 

(  %o5)  [3  z  +  y  +  x  =  l,—z  +  5y  +  3x  =  2,7z  —  3y  —  x  =  0] 

(°/»i6)  linsolve(p,  [x,y,z] ) ; 


solve:  dependent  equations  eliminated:  (1) 

16  %rl  —  3  10  %rl  —  1 

2  ’  ^ _  2 

En  este  caso  sólo  2  ecuaciones  son  linealmente  independientes  y  habrá  in¬ 
finitas  soluciones.  Máxima  llama  %rl  al  parámetro  arbitrario. 

Cuando  no  hay  soluciones,  Maxima  lo  indica  como  sigue: 


(°/0i7)  p:  [x+y=3,2*x+2*y=5]  ; 

(%o7)  [y  +  x  =  3,2y  +  2x  =  5] 
(°/»i8)  linsolve(p,  [x,y] )  ; 

(%o8)  [] 

(°/0i9)  coefraatrix(p,  [x,y] ) ; 


Veamos  un  poco  de  álgebra  matricial,  para  aprender  a  introducir  matrices 
con  las  que  después  trabajar 

C/.Í10)  A:matrix(  [1,0, -2]  ,  [2,3,2],  [-2,0,1]); 


1  0  — 2\ 

2  3  2 

-2  0  1  / 

Para  definir  una  matriz,  wxMaxima  nos  ofrece  una  interfaz  muy  atractiva, 
a  la  que  se  puede  acceder  a  través  del  menú  Algebra! Introducir  matriz... 
wxMaxima  nos  preguntará  el  número  de  filas  y  columnas,  así  como  el  formato 
de  la  matriz  resultante  (de  tipo  general,  diagonal,  simétrico  o  antisimétrico) 
y  a  continuación  nos  ofrecerá  una  ventana  en  la  que  podremos  introducir  sus 
elementos. Para  acceder  a  los  elementos  de  una  matriz,  podemos  utilizar  los 
corchetes. 


( %o!0) 


(7.111)  A  [1,3]; 
(%oll)  -2 


4.1.  Introducción 
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Existe  una  segunda  forma  de  definir  matrices  cuyos  elementos  se  ajusten 
a  una  regla  predefinida.  Para  ello  debemos  predefinir  esta  regla,  de  forma 
que  defina  una  “tabla  de  valores”,  que  asocie  a  cada  fila  y  columna  (entre 
corchetes)  un  número  real,  como  en  el  siguiente  ejemplo: 


(7.112)  T [i ,  j]  :  =i+j -1 ; 


( %o!2)  Tíj  :=  i  +  j  —  1 


Obsérvese  que,  en  la  definición  de  esta  tabla,  liemos  utilizado  el  operador 
(:=).  A  continuación,  podemos  usar  la  función  genmatrix,  a  la  que  se  puede 
acceder  a  través  de  Algebra! Generar  matriz...  en  wxMaxima.  Esta  función 
nos  pedirá  el  nombre  de  la  tabla  de  valores,  así  como  el  número  de  filas  y 
columnas  de  la  matriz  resultante,  por  ejemplo: 

(%i 13)  B : genmatrix (T, 3, 5) ; 


1  2  3  4  5 


( %ol3)  2  3  4  5  6 

\3  4  5  6  7 


Utilizando  submatrix  se  obtienen  submatrices,  para  lo  cual  introducimos 
las  filas  a  eliminar  (si  existe  alguna),  a  continuación  el  nombre  de  la  matriz 
y  por  último  las  columnas  a  eliminar  (en  su  caso).  Las  funciones  row  y  col 
nos  permiten  acceder,  respectivamente,  a  filas  y  columnas  que  deseemos.  Se 
pueden  añadir  filas  y  columnas  nuevas  con  addrow  y  addcol,  todo  lo  cual 
muestran  los  siguientes  ejemplos: 

(%i 14)  submatrix(l,B,4,5) ; 


(7.115)  row(B,  1)  ; 


(%ol5)  (1  2  3  4  5) 
(7.116)  col(B,5); 


( %ol6) 


(7.117)  addcol (B, [10,11,12]) ; 
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/I  2  3  4  5  10\ 

(%ol7)  2  3  4  5  6  11 

\3  4  5  6  7  12/ 


Veamos  algunas  funciones  útiles: 


(%i 18)  transpose(A) ; 


(%ol8) 


í1  2 

0  3 
2  2 


(°/0il9)  ident(3); 


(1  0  0N 

( %ol9)  0  10 

\o  o  1, 

(°/0i20)  identfor(A); 


/I  0  0N 

( %o20)  0  10 

Vo  0  1, 

(°/0i21)  matrix_size  (A)  ; 


(%o21)  [3,3] 

(70i22)  zeroraatrix(3,5) ; 


/O  0  0  o  0\ 

( %o22)  0  0  0  0  0 

\0  0  0  0  0/ 

(°/0i23)  zerofor(A); 


/O  0  0\ 

( %o23)  0  0  0 

\0  0  0/ 

(70i24)  mat_trace(A)  ; 

( %o24)  5 

(°/0i25)  diag_matrix(l  ,2,3) ; 


( %o25) 


4.1.  Introducción 
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(°/0i26)  diagraatrix(4,5)  ; 


( %o26) 


/5  0  0  0\ 
0  5  0  0 
0  0  5  0 
\0  0  0  5/ 


Puesto  que  Maxima  es  un  programa  de  cálculo  simbólico,  las  matrices  no 
se  limitan  a  almacenar  valores  numéricos,  sino  que  estos  pueden  venir  dados 
por  cualquier  tipo  de  expresión: 

(70i27)  C:matrix(  [x“2,  1+x/y]  ,  [sqrt(x),  x~2-y=0]); 


<%o27>  U 

C/.Í28)  C,x=2,y=4; 


C/.Í29)  solve(C  [2,2]  ,x)  ; 

(  %o29)  [x  =  -y/y,  x  =  y/y\ 


Las  operaciones  algebraicas  habituales  están  también  disponibles  para 
matrices,  aunque  debemos  tener  en  cuenta  que:  El  operador  asterisco  (*)  se 
interpreta  como  producto  elemento  a  elemento.  El  producto  matricial  viene 
dado  a  través  del  operador  punto  (.).  El  operador  “  se  utiliza  para  calcular 
las  potencias  de  los  elementos  de  una  matriz.  El  operador  ““se  emplea  para 
calcular  potencias  de  matrices. 


(0/0i30)  A:matrix(  [a,b,c]  ,  [d,e,f] )  ; 


(°/0i31)  B :matrix(  [u,v,w]  ,  [x,y,z] )  ; 


(%o31) 
C/.Í32)  A+B; 


(°/0i33)  2*A ; 
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( %o33) 


(2  a  2  b 
\2d  2 e 


(°/0i34)  A*B; 


( %o34) 

(7.135) 


(a  u  bv  cw 
\dx  ey  fz 

C : submatrix (B , 3) ; 


(%o35)  (“  *) 

(7.136)  C.A; 

í  o/  Qm  ( dv  +  au  ev  +  bu  fv  +  cu 
^  °°  '  ydy  +  ax  ey  +  bx  fy  +  cx 

(7.137)  A~n; 


ofTX  (an  bn  cn\ 
(%o37)  gn 

(7.138)  7.,n=l/2; 


(%o38)  ($  ^  $) 

(7.139)  C-2; 


(%o39)  +  + 

yo:  y  +  u  x  y  +  v  x  J 

Otras  funciones  aplicables  sobre  matrices: 


■  diagmatrix  y  zeromatrix,  se  pueden  utilizar  para  construir,  respecti¬ 
vamente  matrices  diagonales  (con  todos  sus  elementos  diagonales  igua¬ 
les  entre  sí)  y  matrices  nulas. 


■  transpose,  devuelve  la  matriz  traspuesta  (disponible  en  wxMaxima  a 
través  de  Algebra  ¡Trasponer  matriz  ) 


■  determinant,  calcula  el  determinante  de  una  matriz  cuadrada  (  Alge¬ 
bra  !  Determinante  ) 


■  rank,  calcula  el  rango 

■  invert,  devuelve  la  matriz  inversa  (menú  Algebra!Invertir  matriz  ) 

■  triangularize,  devuelve  una  matriz  triangular  superior  resultante  de 
aplicar  el  método  de  Gauss  a  una  matriz  dada 


4.1.  Introducción 
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■  eigenvalues,  devuelve  dos  listas,  la  primera  formada  por  los  autovalo- 
res  de  una  matriz  y  la  segunda  por  sus  multiplicidades  (accesible  desde 
wxMaxima  en  Algebra!  Valores  propios  ) 

■  eigenvectors,  devuelve  una  lista  formada  por  los  autovalores  junto  a 
una  serie  de  listas  representando  a  sus  autovectores  asociados  (menú  Al¬ 
gebra  !  Vectores  propios  de  wxMaxima) 

Algunos  ejemplos: 

(7.140)  A:matrix([l,0,-2] ,  [2,3,2],  [-2,0,1]); 

(1  0  -2\ 

(%o40)  2  3  2 

V-2  0  1/ 

(°/0i41)  determinant  (A)  ; 

(%o41)  -9 
(°/0i42)  B:invert(A); 

(-1  o 

( %o42)  I|I 

v-§  o  -y 

(7oi43)  I :  A .  B ; 

(1  0  0\ 

( %o43)  0  10 

\0  0  1 ) 

(7444)  M:A-x*I; 

íl-x  0  -2  \ 

(%o44)  2  3  —  x  2 

\  -2  0  1  —  x J 

(7oi45)  solve  (determinant  (M)=0)  /*  Autovalores  */ ; 

(%o45)  [x  =  3,x  =  -1] 

(7.146)  M,x=3; 

/— 2  0  -2\ 

(%o46)  2  0  2 

2  0  -2/ 

(7.Í47)  rank(7«); 
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( %o47)  1 

(°/0i48)  eigenvalues (A)  /*  [autovalores]  ,  [multiplicidades]  */; 
(%o48)  [[3,-1],  [2,1]] 

(°/0i49)  eigenvectors  (A)  /*  [autovalores]  ,  [vi],  [v2]  ,  [v3]  */ ; 

( %o49)  [[[3,  -1],  [2, 1]],  [[[1,  0,  -1],  [0, 1,  0]],  [[1,  -1, 1]]]] 

(°/,i50)  triangularize  (A) ; 

/I  0  -2 
( %o50)  0  3  6 

\0  0  -9 


El  comando  eigenvalues  llama  a  solve  y  por  tanto,  a  veces,  no  devuelve 
resultado,  veámoslo  con  el  siguiente  ejemplo 

(°/0i51)  R[i,j]:=  j~  (i— 1)  ;A:genmatrix(R,5,5) ; 


(%o51)  Ritj  :=  f-1 

( 111  1  1  \ 

1  2  3  4  5 

( %o52)  1  4  9  16  25 

1  8  27  64  125 

\1  16  81  256  625/ 

(°/0i53)  eigenvalues (%) ; 

solve  is  unable  to  find  the  roots  ofthe  characteristic  polynomial. 
( %o53)  [] 


Una  alternativa,  es  hacer  su  polinomio  característico  y  resolverlo  por  ejem¬ 
plo  con  algsys 

(7oi54)  algsys  ( [charpoly  ( A ,  x)  =0]  ,  [x] ) ; 

(%o54)  [[x  =  680,9266055045872],  [x  =  17,65848670756646],  [x  =  1,973060344827586],  [x 
0,41235602094241],  [x  =  0,029439197854728]] 


4.2.  Métodos  de  factorización.  Normas  matriciales. 
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4.2.  Métodos  de  factorización.  Normas  ma¬ 
triciales. 

Habida  cuenta  de  la  sencillez  y  eficiencia  computacional  de  la  resolución 
de  sistemas  lineales  cuya  matriz  de  coeficientes  sea  triangular,  tanto  con 
matriz  triangular  inferior  como  superior  (en  cualquier  caso  conlleva  un  total 
de  n 2  operaciones  la  resolución  de  uno  de  tales  sistemas  de  n  ecuaciones 
lineales),  estamos  interesados  en  los  métodos  de  factorización  de  la  matriz 
de  coeficientes  como  producto  de  matrices  triangulares,  que  conduciría  a  la 
resolución  sencilla  de  dos  sistemas  lineales  con  matriz  triangular.  Veamos 
algunos  comandos  de  Maxima  para  realizar  faetorizaciones  de  matrices. 


4.2.1.  Factorización  LU 

Dada  una  matriz  cuadrada  A  la  factorización  LU  consiste  en  calcular 
tres  matrices,  una  matriz  permutación  P,  y  otras  dos  matrices  L  y  U,  con 
L  triangular  inferior  con  unos  en  la  diagonal,  U  triangular  superior  y  tales 
que  A  =  PLU.  Maxima  calcula  dicha  factorización  directamente  con  el  uso 
de  comandos  de  la  siguiente  forma: 

(°/0i55)  load(linearalgebra)  $ 

C/.Í56)  A:matrix(  [1,0,2]  ,  [2,7,3]  ,  [2,1,0])  ; 

(1  0  2\ 

( %o56)  2  7  3 

\2  1  0/ 

(°/0i57)  get_lu_factors(lu_factor(A))  ; 

/I  0  0\  íl  0  0\  /l  0  2  \ 

(%o57)  [  0  1  0  ,  2  1  0  ,  0  7  -1] 

\0  0  l)  \2  i  l)  \0  0  -f/ 

Las  tres  matrices  que  aparecen  son  respectivamente  P,  L  y  U 

C/.Í58)  P:7.o57  [1]  ; 

/i  0  0\ 

( %o58)  0  10 

Vo  0  l) 

C/.Í59)  L :  °/0o57  [2]  ; 
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' 1  0  0N 
2  10 


1 2  |  1. 


( %o59) 

C/.Í60)  U :  °/0o57  [3]  ; 

2 

( %o60) 


Comprobamos  que  la  factorización  es  correcta 
(7oi61)  P.L.U; 


(%o61) 


Ha  hecho  la  factorización  A=PLU,  pero  sólo  cambiando  filas  en  caso 
de  división  por  cero.  Si  queremos  que  haga  pivoteo  parcial  tendremos  que 
pasarle  el  argumento  opcional  floatfield.  Notar  que  en  este  caso  calcula  la 
factorización  de  manera  numérica 


(°/0i62)  get_lu_factors(lu_f  actor  (A,  floatfield))  ; 

( %o62) 


'0  0  1 
1  0  0 
^0  1  0 
(7.163)  P :  7.062  [1]  ; 


1  0 

1,0  1 

,0,5  0,58333333333333 


/0  0  1' 
(%o63)  10  0 

V>  1 

(°/0i64)  L:  7.o62  [2]; 


0 

1 


(%o64)  |  1,0 

^0,5  0,58333333333333 
(°/0i65)  U:  7.o62  [3]; 


( %o65) 


/  2,0 

7,0 

3,0 

° 

-6,0 

-3,0 

Vo 

0 

2,25 

P.L.U: 
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/l,0  0,0  2,0\ 

(%o66)  2,0  7,0  3,0 

\2,0  1,0  0,0/ 

Para  resolver  un  sistema  Ax=b  utilizando  la  descomposición  LU  con  pi¬ 
voteo  parcial,  podemos  seguir  los  pasos  siguientes 


(°/0i67)  b:matrix(  [-1]  ,  [-1]  ,  [2] )  ; 
'-l' 

(%o67)  I  -1 


(°/0i68)  M:  lu_f  actor  (A,f  loatf  ield)  ; 

/0, 5  0,58333333333333  2,25 

(%o68)[  2,0  7,0  3,0  )  ,  [2,  3, 1],  f  loatf  ield,  6,0, 80, 

\1,0  -6,0  -3,0 

(°/0i69)  get_lu_factors(M)  ; 


'0  o  r 


(%o69)  [1  0  0  ,  1,0 


0 

1 


0\  / 2,0  7,0  3,0 


0 


,0  1  0, 


,0,5  0,58333333333333  1. 


0  -6,0  -3,0 

0  0  2,25 


(70i70)  lu_backsub(M,b) ; 


( %o70) 


4.2.2.  Factorización  de  Cholesky 

La  factorización  de  Cholesky  es  una  factorización  parecida  a  la  anterior, 
Maxirna  la  realiza  para  matrices  reales  simétricas  (o  complejas  hermíticas) 
y  en  este  caso  la  matriz  A  se  descompone  en  la  forma  A  =  LLb  con  L 
triangular  inferior.  Dicha  factorización  está  asegurada  para  matrices  reales 
simétricas  y  definidas  positivas,  siendo  en  este  caso  los  elementos  diagonales 
de  L  positivos.  Maxirna  calcula  dicha  factorización  directamente  con  el  uso 
de  comandos  de  la  siguiente  forma: 

(°/oi71)  A:matrix([2,-l,-2]  ,  [-1,14,7]  ,  [-2,7,5]); 


( %o71) 


2  -1  -2 
-1  14  7 

-2  7  5 
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(°/0i72)  B :  cholesky (A, f  loatf  ield) ; 

/  1,414213562373095  0  0  \ 

(%o72)  -0,70710678118655  3,674234614174767  0 

1, 414213562373095  1,632993161855452  0,57735026918963/ 

4.2.3.  Normas  vectoriales  y  matriciales.  Número  de 
condición  de  una  matriz 

Vamos  a  calcular  ahora  las  normas  usuales  de  vectores  y  matrices  con 
funciones  de  Maxima 

(°/.i73)  v:  [1,-1 ,2]; 

(%o73)  [1,-1,  2] 

(°/0i74)  lmax(abs (v) )  /*  norma  infinito  del  vector  v*/ ; 

( %o74)  2 

(°/0i75)  v:matrix(  [1,-1, 2] ) ; 

(%o75)  (1  -1  2) 

(°/>i76)  mat_norm(v,  1)  /*  norma  1  como  matriz,  coincide 
con  la  norma  infinito  como  vector  fila  */ ; 

( %o76)  2 

(°/0i77)  mat_norm(v, inf )  /*  norma  infinito  como  matriz,  coincide 
con  la  norma  1  como  vector  fila  */; 

( %o77)  4 

(°/0i78)  mat_norm(v,frobenius)  /*  norma  2  como  vector  */; 

( %o78)  V6 

(°/0i79)  A:matrix(  [1,-1]  ,  [2,3] )  ; 

( %o79)  Q  -1) 

(°/0i80)  mat_norm(A,  1)  /*  norma  1  de  la  matriz  A*/; 

( %o80)  4 
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(°/0i81)  mat_norra(A, inf )  /*  norma  infinito  de  la  matriz  A  */ ; 

( %o81)  5 

(°/0i82)  mat_norm(A,frobenius)  /*  norma  frobenius  de  la  matriz  A  */ ; 

( %o82)  \/T5 


No  confundir  esta  con  la  norma  dos  de  A,  dada  por 
(°/0i83)  norma_2(A)  :=sqrt(lmax(abs(eigenvalues (transpose (A)  .A)  [1]))) 
(  %o83)  norma2  (A)  :=  J lmax  (((eigenvalues  (transpose  (A)  •A))1|) 


(°/0i84)  norma_2(A); 
y/ú  +  15 

Para  vectores  podemos  definir  directamente  sus  normas  usuales  por  medio 
de  las  funciones  siguientes 


(70i85)  norma_l(a)  :=apply("  +  "  ,abs(a)) ; 

norma_2(a) : =sqrt (apply("+" , abs (a) ~2) ) ; 
norma_inf (a) : =lmax (abs (a) ) ; 

( %o85)  norma_l  (a)  :=  apply  (+,  |a|)  (  %o86)  norma_2  (a)  :=  \J apply  (+,  |a|2) 
(%o87)  norma  inf  (a)  :=  lmax(|a|) 

(7oi88)  a:  [-5, 3, 4, -7]  ;norma_l(a)  ;norma_2(a)  ;norma_inf  (a)  ; 

( %o88)  [-5,  3, 4,  -7]  ( %o89)  19  (  %o90)  3  y/ñ  ( %o91)  7 

En  tanto  que,  para  matrices  cuadradas  A,  el  radio  espectral  p(A )  (que 
denotaremos  también  por  re  (A))  y  las  normas  matriciales  compatibles  con 
las  anteriores,  podemos  obtenerlas  con  las  siguientes: 


(7á92)  /*La  siguiente  función  nos  da  el  radio  espectral,  al 

menos,  para  matrices  de  orden  menor  o  igual  a  cuatro*/ 
re (A) : =lmax(abs (eigenvalues (A) [1] ) ) $ 
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(°/0i93)  norma_l  (A)  :  =block( 


s :matrix_size(A) ,n: s  [1] , 
f or  j : 1  thru  n  do 
c[j] : sum(abs (A  [i ,  j] ) , i,l,n) , 
c :makelist (c [j] , j , 1 ,n) , 
print("norma_l(A)  =  ",lmax(c)) 
)$ 


(°/0i94)  norma_2(A)  :=print("norma_2  (A)  =", 
f loat (sqrt (re (transpose (A) . A) ) ) ) $ 


(°/0i95)  norma_inf  (A)  :  =block( 


s :matrix_size(A) ,n: s  [1] , 
f or  i : 1  thru  n  do 
f [i] : sum(abs (A  [i ,  j] ) ,j ,l,n) , 
f :makelist (f [i] , i , 1 ,n) , 
print("norma_inf (A)  =  ",lmax(f)) 
)$ 


(7.196)  A:matrix(  [2,2,4]  ,  [2,3,6]  ,  [1,1,1])  ; 


print("Radio  espectral  de  A  =" ,float(re(A)))$ 
norma_l(A)$  norraa_2(A)$  norma_inf (A) $ 


Radio  espectral  de  A  =  6,418832675970043 
norma  A{A)  =  11 
norma  J2(A)  =  8,676601657378294 
normajinf(A)  =  11 

Observación.  Téngase  en  cuenta  que  la  función  “eigenvalues”  llama 
a  “solve"  y  puede  que  no  sepa  resolver  muchas  ecuaciones  algebraicas  de 
orden  superior  a  4,  por  ello  en  ese  caso  habrá  que  determinar  el  polinomio 
característico  y  resolverlo  con  otros  comandos,  por  ejemplo  “algsys” . 

Una  vez  tenemos  controlado  como  calcular  normas  de  matrices,  vamos  a 
pasar  a  calcular  el  número  de  condición  de  una  matriz.  Este  número  indica 
si  la  matriz  está  bien  condicionada  o  no  con  respecto  a  la  resolución  de 
sistemas  lineales.  Un  número  de  condición  alto  es  malo,  ya  que  indica  posibles 
problemas  en  la  resolución  numérica  de  un  sistema  lineal  que  tenga  a  esa 
matriz  como  matriz  de  coeficientes.  Los  condicionamientos  respecto  de  las 
normas  usuales,  están  dados  por  las  funciones  siguientes: 
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(%i 10 1 ) mat_cond(A, 1)  /*  número  de  condición  de  la  matriz  A 
en  norma  1  */ ; 

(%ol01)44 


(70il02)  mat_cond(A,  inf )  /*  número  de  condición  de  la  matriz  A 
en  norma  infinito  */; 

(%ol02)55 


(°/0il03)mat_cond(A,frobenius)  /*  número  de  condición  de  la 
matriz  A  en  norma  frobenius  */ ; 

(%ol03)v/2  3Í  VÍ9 


Un  ejemplo  clásico  de  matrices  mal  condicionadas  son  las  matrices  de 
Vandermonde.  Estas  matrices  aparecen  de  manera  natural  en  el  problema  de 
interpolación  de  Lagrange.  El  número  de  condición  de  estas  matrices  crece 
con  la  dimensión,  y  eso  es  perjudicial. 


(°/0il04)  B :  vandermonde_matrix(  [1 , 2 , 3,4, 5] )  ; 


(%ol04) 


(1 

1 

1 

1 

1  \ 

1 

2 

4 

8 

16 

1 

3 

9 

27 

81 

1 

4 

16 

64 

256 

V1 

5 

25 

125 

625 / 

(7,il05)mat_cond(B,  1) ; 
(%ol05)  44055 


Vamos  a  resolver  dos  sistemas  lineales  con  la  anterior  como  matriz  de  coe¬ 
ficientes  y  con  pequeños  cambios  en  la  columna  de  términos  independientes, 
para  ver  como  afecta  a  las  soluciones 
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(°/oil06)  kill  (all)  $ 

linsolve ( [x+y+z+u+v=10 ,x+2*y+4*z+8*u+16*v=2, 
x+3*y+9*z+27*u+81*v=3,x+4*y+16*z+64*u+256*v=4, 
x+5*y+25*z+125*u+625*v=50] , [x,y,z,u,v] ) , numer; 

/*Veamos  ahora  las  soluciones  del  sistema  perturbado, 
cambiando  ligeramente  los  términos  independientes  de 
las  ecuaciones  anteriores*/ 

linsolve ( [x+y+z+u+v=10 . 02 , x+2*y+4*z+8*u+16*v=2 . 01 , 
x+3*y+9*z+27*u+81*v=2 . 9 , x+4*y+16*z+64*u+256*v=3 . 99 , 
x+5*y+25*z+125*u+625*v=50 . 03] , [x , y , z , u , v] ) , numer ; 

(  %ol)  [x  =  90,?/  =  -150,5,  z  =  92,25,  u  =  -24,  v  =  2,25] 

(  %o2)  [x  =  89,08,  y  =  -148,6641666666667,  z  =  91,09791666666666,  u  = 
-23,72083333333334,  v  =  2,227083333333333] 

Ejercicio.  Calcular  A  y  B  para  que  la  función  /(x)  =  Ax12  +  Bx13, 
verifique  las  condiciones: 

1.  /( 0,1)  =  6,06  •  10"13  y  /( 0,9)  =  0,03577 

2.  /(0,1)  =  0,0001  y  /(0, 9)  =  0,0356 

Para  ello  hemos  de  resolver  los  dos  sistemas  lineales  siguientes. 

(°/„i3)  kill  (all)  $  f  (x)  :  =A*x~  12+B*x~  13 ; 

linsolve ( [f (0 . 1) =6 . 06*10~-13 , f (0 . 9) =0 . 03577] , [A , B] ) , numer 

/*Veamos  otra  vez  las  soluciones  del  sistema  perturbado, 
cambiando  ligeramente  los  términos  independientes  de  las 
ecuaciones  anteriores*/ 

linsolve ( [f (0 . 1)=0 . 0001 , f (0 . 9)=0 . 0356] , [A,B] ) , numer ; 

( %ol)  f(x)  :=Ax12  +  Bx13 

(  %o2)  [A  =  0,66591861757552,  B  =  -0,59918617575518] 

(  %o3)  [A  =  1,1249999998424385  108,  B  =  -1,2499999984243855  108] 

Para  ver  el  porque  de  esta  gran  diferencia  en  las  soluciones,  por  tan  leve 
cambio  en  los  términos  independientes  de  estas  ecuaciones,  basta  con  ver  el 
número  de  condición  en  norma  1  de  la  matriz  de  coeficientes  de  este  sistema. 
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(°/0i4)  coefraatrix(  [f  (0 . 1)=6 . 06*10~-13,f (0 . 9)=0 . 03577]  ,  [A,B] )  ,nuraer 


(%o4) 


/ 9,9999999999999998 10~13  1,0  10"13  \ 

\  0,282429536481  0,2541865828329 J 


Y  su  número  de  condición  en  normal  es 


(°/0i5)  mat_cond(°/0, 1)  ; 

(%o5)  6,7077014914475159 1011 


4.3.  Métodos  iterativos  de  Jacobi  y  Gauss- 
Seidel. 


4.3.1.  Método  de  Jacobi 


Dentro  de  los  métodos  iterativos  para  la  resolución  de  sistemas  de  ecua¬ 
ciones  lineales,  el  más  clásico  es  el  método  de  Jacobi,  cuya  matriz  de  iteración 
viene  dada  por  Ej  =  D~l(L  +  U)  siendo  convergente  si  y  sólo  si  p(Ej)  <  1. 
En  particular,  si  A  es  estrictamente  diagonal  dominante  el  método  es  conver¬ 
gente.  En  las  siguientes  órdenes  vamos  a  ver  cómo  aplicar  dicho  método  en 
el  supuesto  de  que  sea  convergente.  Consideramos  la  matriz  de  coeficientes 


C/.Í6)  A:matrix(  [1,6, -1,2]  ,  [4, 1,0, 1]  ,  [0,-1, 10,4]  ,  [3, -1,-2, 7] ) ; 


( %o6) 


Y  el 


íl  6  -1  2\ 

4  10  1 

0  -1  10  4 

\3  -1  -2  7/ 

vector  de  términos  independientes 


(°/oi7)  b :matrix(  [6]  ,  [6]  ,  [-2]  ,  [19]  )  ; 


(%o7) 


/  6  \ 
6 

-2 

V 19/ 


Debido  a  que  es  mejor  trabajar  con  una  matriz  estrictamente  diagonal 
dominante,  ya  que  esto  es  condición  suficiente  para  la  convergencia  de  este 
método,  vamos  a  intercambiar  la  primera  con  la  segunda  ecuación  (que  se 
traduce  en  el  intercambio  de  esas  filas  en  las  matrices  A  y  b) 
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(°/0i8)  A : rowswap(A,  1 ,2)  ; 


(%o8) 

(7.i9) 


/  4 

1  0 

A 

1 

6  -1 

2 

0 

-1  10 

4 

\3 

-1  -2 

V 

b : rowswap (b ,1,2) ; 


(%o9) 


/  6  \ 
6 

-2 

V 19/ 


Ahora  inicializamos  las  variables,  el  número  máximo  de  iteraciones  “nrnax” , 
la  dimensión  s  del  sistema  y  los  valores  iniciales  de  las  incógnitas,  que  toma¬ 
mos  iguales  a  cero 


(%i 10)  n_max : 100 ; 

( %ol0)  100 

(%ill)  s :matrix_size (b) ; 

( %oll)  [4, 1] 

(7cil2)  s: sCl]  ; 

( %ol2)  4 

(%i 13)  P : zerof or (b) ; 


(%ol3) 

(7.114) 


/o\ 
o 
o 

voy 

n:  1; 


( %ol4)  1 

(7«i  15)  z : matrix ( [0]  ,  [0]  ,  [0]  ,  [0] )  ; 


(%ol5) 


/o\ 

0 

o 
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(%i 16)  while  (n<=nmax)  do 

( 

for  i : 1  thru  s  do( 

z[i]  :l/A[i,i]*(b[i]-sum(A[i,j]*P[j]  ,j,  1,1-1) 
-sum(A[i,  j]  *P[j]  , j ,i+l,s)) 

), 

P:z, 

n:n+l 

)$ 


Finalmente,  mostramos  la  última  aproximación  obtenida  de  la  solución 


(70il7)  print("La  solución  aproximada  tras  ",  nmax,  "  pasos  es  ", 
f loat (z) ) $ 


/  1,0  \ 

-2,8456248203415032  10~62 

-1,0 

V  2>0 

Que  es  una  buena  aproximación  de  la  solución  exacta  dada  por  x  —  (1,0,— 1,2). 


La  solución  aproximada  tras  100  pasos  es 


4.3.2.  Método  de  Gauss-Seidel 


Veamos  seguidamente  otro  de  los  métodos  iterativos  usuales  para  la  re¬ 
solución  de  sistemas  de  ecuaciones  lineales,  el  método  de  Gauss-Seidel,  cuya 
matriz  de  iteración  es  Eqs  =  (D  —  L)~lU  y  converge  si  y  sólo  si  p(Ecs)  <  1- 
En  particular,  converge  para  sistemas  lineales  Ax  =  b  con  A  estrictamente 
diagonal  dominante.  Ahora  presentamos  un  block  para  resolver  un  sistema 
por  el  método  de  Gauss-Seidel  (en  el  supuesto  de  que  sea  convergente)  con 
un  número  máximo  de  iteraciones  “nmax” 
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(%i 18)  /*  Método  de  Gauss-Seidel  con  nmax  iteraciones  para 
resolver  un  sistema  de  n  ecuaciones  lineales*/ 


GS ( A , b , nmax) : =block ( [numer] , numer : true , nmax , 
s :matrix_size (A) ,n: s  [1] , 
x:  matrix(  [0]  ,  [0]  ,  [0]  ,  [0]  ,  [0]  ,  [0] )  , 
for  k:l  thru  nmax  do 

(for  i : 1  thru  n  do(x [i] : (b [i] -sum(A [i , j] *x [j] , j , 1 , i-1) 

-sum(A[i,  j]*x[j]  ,  j  ,  i+1  ,n)  )/A [i ,  i] ))  , 
print("La  solución  aproximada  tras  ",nmax,"  pasos  es  ",x))$ 


que  ahora  aplicamos  al  sistema  lineal  de  seis  ecuaciones  dado  por 


(%i 19)  A:  matrix( [10 ,-3,2 , 1 , 1 ,0] , [1 ,8, -1,3,0, 1] . [0,1, 12, -5, 0,2] , 
[2, -2, 3, 20, 1, 1] , [-2, -1,1, 3, 15,2] , [1,-2, 1,-1, 1,9]) ; 
b:  matrix(  [16]  ,  [-1]  ,  [0]  ,  [29]  ,  [38]  ,  [31] )  ; 

GS(A,b,30)$ 


( %ol9) 


( %o20) 


/ 10  -3 
1  8 
0  1 
2  -2 
-2  -1 
\1  -2 
/ 16  \ 

-1 

0 

29 
38 

v  3i  y 


2 

-1 

12 

3 

1 

1 


1 

3 

-5 

20 

3 

-1 


1  °\ 

0  1 

0  2 

1  1 

15  2 

1  9/ 


La  solución  aproximada  tras  30  pasos  es 


(  1,0  \ 
-1,0 
0,0 
1,0 
2,0 
V  3,0  y 


Que  es  una  buena  aproximación  a  la  solución  exacta  dada  por  x  = 

(1,-1, 0,1, 2, 3). 


Ejercicio.  Mejorar  el  programa  anterior  para  detener  la  ejecución  si  la 


4.4.  Ejercicios  propuestos 
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norma  subinfinito  del  vector  diferencia  de  dos  iteraciones  consecutivas  es 
menor  que  un  épsilon  dado. 

Tanto  este  método  como  el  anterior  pueden  hacerse  matricialmente,  pero 
no  es  aconsejable,  sobre  todo  para  un  gran  número  de  ecuaciones  e  incógnitas. 

4.4.  Ejercicios  propuestos 

Completar  con  Maxirna  los  ejercicios  siguientes: 

1.  Utilizar  los  comandos  generales  de  wxMaxima  para  resolver  el  sistema 
lineal:  x  +  2y  —  z  =  —3,  —x  —  Ay  +  z  =  5,  2x  +  10 y  +  2z  =  —4. 

2.  Formar  una  matriz  diagonal  A  con  los  valores  1,2, 3, 4,  5,6  en  su  dia¬ 
gonal.  Calcular  después  A 3  y  hallar  su  traza  (la  suma  de  los  elementos 
de  su  diagonal). 

3.  Construir  funciones  de  Maxirna  para  resolver  sistemas  triangulares, 
aplicarlas  a  algún  ejemplo. 

4.  Realizar  una  factorización  LU  con  pivoteo  parcial  de  la  matriz  de  coe¬ 
ficientes  del  sistema  del  ejercicio  1.  Comprobar  que  dicha  factorización 
está  bien  hecha,  y  además  resolver  usando  la  descomposición  LU  el 
sistema  de  ecuaciones  lineales. 

5.  Realizar  una  factorización  de  Cholesky  de  la  matriz 

1  2  -1  \ 

2  8-2 
-1  -2  17  / 

Comprobar  que  dicha  factorización  está  bien  hecha.  Utilizar  la  factori¬ 
zación  para  resolver  el  sistema  de  ecuaciones  Ax  =  b ,  siendo  b  el  vector 
columna  tal  que  U  =  (0,  0, 16).  Tendréis  que  resolver  dos  sistemas  trian¬ 
gulares  por  sustitución  progresiva  y  regresiva  respectivamente. 

6.  Calcular  el  número  de  condición  en  norma  2  de  la  matriz  A  dada  por 

0  1 
-1  0 

7.  Definir  la  matriz  de  Vandermonde  de  tamaño  n  =  3, 4,  5  cuando  los  no¬ 
dos  son  1, 2,  3, 1,  2,  3, 4, 1,  2,  3, 4,  5  respectivamente.  Calcular  el  número 
de  condición  en  norma  1  de  dichas  matrices.  Podéis  ver  lo  que  sucede. 
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8.  Hallar  la  matriz  del  método  de  Jacobi  Ej  cuando  la  matriz  de  coefi¬ 
cientes  de  un  sistema  es 

1  2  -1  \ 

2  8-2 
-1  -2  17  j 

9.  Calcular  la  matriz  del  método  de  Gauss-Seidel  Eqs  para  la  matriz  A 
del  apartado  anterior. 

10.  Aplicar  el  método  de  Gauss-Seidel  para  aproximar  la  solución  del  sis¬ 


tema 

X\  A  8x2  —  X3  A  3X4  A  Xq  =  — 1 

lÜXi  —  3x2  +  2x3  +  X4  +  X5  =  16 

X2  +  12X3  —  5X4  +  2X6  =  0 

2xx  —  2x2  8x3  -|-  2OX4  A  X5  A  Xg  —  29 

— 2xi  —  x2  A  x3  A  3x4  A  15x5  A  2x6  =  38 

Xi  —  2x2  AX3-X4  Ax5  A  9x6  =  31 


Realizar  n  =  20  iteraciones.  Mejorarlo,  si  podéis,  para  que  en  vez  de  con 
el  número  máximo  de  iteraciones,  el  programa  pare  cuando  la  distancia 
entre  dos  iterados  sucesivos  sea  menor  que  10~5. 

11.  Resolver  el  problema  de  contorno  que  sigue: 

y'\x)  =  sin(x),  x  e  [0, 1];  y{ 0)  =  y{  1)  =  0 

por  diferencias  finitas,  para  ello  considerar  las  n  =  10  ecuaciones  linea¬ 
les  que  salen  de  discretizar  la  segunda  derivada  en  la  forma 

x  _  Vj- 1  -  2 yj  A  yj+ 1 
y  vLj)  ~  ^  2 

siendo  h  —  -,  y3  =  y(xj)  y  Xj  =  jh.  Dibujar  la  gráfica  de  la  solución. 
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Interpolación,  derivación  e 
integración  numérica.  Mejor 
aproximación  por  mínimos 
cuadrados 

5.1.  Interpolación 

5.1.1.  Cálculo  directo  del  polinomio  de  interpolación 

Como  es  sabido,  dados  los  valores  de  una  función  f(x),  fi  =  /(x¿)  en 
n  +  1  puntos  distintos  {x¿|(í  =  0, 1,  2, n)}  del  intervalo  [a,  b],  existe  un 
único  polinomio  p(x)  de  grado  menor  o  igual  a  n  tal  que  p{xj)  =  /¿  para  cada 
¿  =  0,1,2,---  ,  n,  a  dicho  polinomio  se  le  llama  el  polinomio  de  interpolación 
de  /  en  los  n  +  1  puntos  dados.  Puede  escribirse  como  P(x)  =  anxn  + 
an-\xn~l  +  ...  +  (i\x  +  ao  y  hallar  los  coeficientes  ao,  a  i, ...,  an  del  polinomio 
de  interpolación  de  manera  que  se  cumplan  las  n  +  1  ecuaciones  lineales: 

P(xí)  =  fi  (¿  =  0, 1,  —  ,  n) 

siendo  el  sistema  correspondiente  compatible  determinado,  pues  el  deter¬ 
minante  de  la  matriz  de  coeficientes  es  un  determinante  de  Vandermonde, 
que  no  se  anula  por  ser  los  puntos  distintos,  aunque  sabemos  que  la  ma¬ 
triz  está  mal  condicionada,  de  ahí  el  interés  en  otros  métodos  para  ob¬ 
tener  el  polinomio  de  interpolación.  Pero  veamos  algún  ejemplo  con  es¬ 
te  método.  Se  desea  obtener  el  polinomio  de  interpolación  que  pasa  por 
los  puntos:  (0, 1),  (1,  5),  (2,  31),  (3, 121),  (4,  341),  como  se  trata  de  5  puntos 
por  ellos  pasa  un  único  polinomio  de  grado,  a  lo  más,  cuatro  de  la  forma 
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P(x)  =  a0  +  cliX  +  a2x2  +  a3x3  +  a4rr4,  para  hallarlo  hemos  de  resolver  el 
sistema  lineal: 

(°/0il)  p(x)  :=a0+al*x+a2*x~2+a3*x~3+a4*x~4; 
linsolve( [p(0)=l,p(l)=5,p(2)=31, 
p(3)=121 ,p(4)=341] , [aO ,  al ,  a2 ,  a3 , a4] ) ; 

(  %ol)  p  (x)  :=  a 0  +  al  x  +  a2  x2  +  a3  x3  +  a4  x4 
(  %o2)  [aO  =  1,  al  =  1,  a2  =  1,  a3  =  1,  a4  =  1] 

Luego  se  trata  del  polinomio  p(x)  =  x4  +  x3  +  x2  +  x  +  1. 


5.1.2.  Fórmula  de  Lagrange 

La  fórmula  de  Lagrange  está  dada  por 


p(x)  =  fQl0(x)  +  fih(x)  +  ...  +  fnln(x) 


donde  fi  =  f(xi )  y  U{;x)  son  los  polinomios  de  base  de  Lagrange.  Para  el 
ejemplo  del  párrafo  anterior  se  tendrá 

(7.13)  p (x)  :  =  (x-l)*(x-2)*(x-3)*(x-4)/((-l)*(-2)*(-3)*(-4))  + 
5*((x*(x-2)*(x-3)*(x-4))/((l-0)*(l-2)*(l-3)*(l-4)))+ 
31*((x*(x-l)*(x-3)*(x-4))/((2-0)*(2-l)*(2-3)*(2-4)))+ 
121*((x*(x-l)*(x-2)*(x-4))/((3-0)*(3-l)*(3-2)*(3-4))) 
+341* ( (x* (x-1) * (x-2) * (x-3) ) / ( (4-0) * (4-1) * (4-2) * (4-3) ) )  ; 
expand(p(x) ) ; 


,  0/  ON  ^  o  -  1)  (x  -  2)  (x  -  3)  (x  -  4) 

(  %°3)  P  (l)  !=  - (-1)  (-2)  (-3)  (-4) - + 

^  x  (x  —  2)  (x  —  3)  (x  —  4)  x  (x  —  1)  (x  —  3)  (x  —  4) 


(1-0)  (1-2)  (1-3)  (1-4) 


121  x  (x  ~  X)  (x  ~  2)  (x  ~  4)  +  341 


(2  -  0)  (2  -  1)  (2  -  3)  (2  -  4) 
x  (x  —  1)  (x  —  2)  (x  —  3) 


(3-0)  (3-1)  (3-2)  (3-4) 
(  %o4)  x4  +  x3  +  x2  +  x  +  1 


(4  -  0)  (4  -  1)  (4  -  2)  (4  -  3) 
Resultando,  lógicamente,  el  polinomio  hallado  antes. 


5.1.3.  Fórmula  de  Newton  en  diferencias  divididas 

La  fórmula  de  Newton,  en  diferencias  divididas,  del  polinomio  de  inter¬ 
polación  está  dada  por 

p(x)  =  f[x0\  +  f[x0,xi](x  -  xQ)  +  f[x0,x i,x2](x  -  x0)(x  -  Xi)  +  ... 
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+f[x0,x  1,  ....,xn](x  -  x0)(x  -  Xi)...(x  -  Xn_i) 

siendo  las  f[x0,  Xi, ...,  Xi\  las  diferencias  divididas  de  /  de  orden  i  en  los  puntos 
Xq,Xi,---  ,  X{ ,  que  se  calculan  recurrentemente  en  la  forma: 

f[x 0,  X!,  ...,  Xi]  =  (f[x l,  Xi]  -  f[x o,  Xi,  ...,  Xi-i})/(Xi  -  Xo) 

siendo  f[xk]  =  f(xk)  —  fk.  En  tanto  que,  las  diferencias  divididas  f[x0,  Xi, ...,  x^\ 
las  escribimos  en  lo  que  sigue  como  /OI  •  •  •  k. 

C/.Í5)  kill  (all)  $  xO  :  0  $xl:l  $x2  :  2  $x3:3  $x4:4$ 
f 0 : 1$  f 1 : 5$  f 2 : 31$  f3:121$  f4:341$ 
f 01 : (fl-fO)/ (xl-xO) $ 
f 12: (f2-f l)/(x2-xl)$ 
f 23 : (f3-f2)/(x3-x2)$ 
f 34 : (f4-f3)/(x4-x3)$ 
f 012 : (fl2-f01)/(x2-x0)$ 
f 123 : (f23-fl2)/(x3-xl)$ 
f 234 : (f 34-f 23) / (x4-x2) $ 

Í0123: (fl23-f012)/(x3-x0)$ 

f 1234: (f234-f 123) /(x4-xl)$ 

f 01234: (f 1234-f 0123) / (x4-x0) $ 

p(x) : =f 0+f 01* (x-x0)+f 012* (x-x0) * (x-xl)+ 

f 0123* (x-xO) * (x-xl) * (x-x2)+ 

f 01234* (x-xO) * (x-xl) * (x-x2) * (x-x3) ; 

print("p(x)  =  " ,expand(p(x))$ 

( %o22)  p(x)  =  xA  +  x3  +  x2  +  x  +  1 

Que  vuelve  a  dar  el  polinomio  de  interpolación  que  hemos  hallado  antes. 

5.1.4.  Taylor 

Si  tenemos  una  función  f(x),  derivable  hasta  el  orden  n  en  un  entorno 
del  punto  x  =  a,  podemos  aproximarla,  en  las  proximidades  de  a,  por  un 
polinomio.  El  criterio  con  el  que  elegiremos  el  polinomio  será  hacer  coincidir 
la  función  y  sus  derivadas  sucesivas  con  los  correspondientes  valores  del  po¬ 
linomio  en  el  punto  x  =  a.  Este  problema  tiene  solución  única  dada  por  el 
polinomio  de  Taylor  de  orden  n  de  una  función  /  en  el  punto  a.  En  Maxima 
puede  obtenerse  con  el  siguiente  comando  hasta  el  orden  que  se  desee. 

( °/o i  1 )  taylor (f  (x)  ,x, a, 5)  ; 

(%ol)/T/ 
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Ha)  +  (fj(x) U)(x  -  a)  +  láWr)'"';  +  + 

(~^í(x)\  )  (x-a)4  (~f^í(x)\  j  (x-a)5 

I  \  dx _ I x=a' _  I  \  dx _ \x=qs _  I 

'  24  '  120  ' 

Por  ejemplo,  si  deseamos  el  polinomio  de  Taylor  de  grado  6  de  la  función 
cos(x)  alrededor  de  x  =  0  pondremos: 

(°/0i2)  taylor  (eos  (x)  ,x,  0 , 6)  ; 


2  4  fi 

1  _  X  I  X  _  xu  | 

-L  o  '  o/i  7on  i  •  •  • 


(%o2)/T  / 

X 2 

2  1  24  720 

La  orden  “trunc”  guarda  el  polinomio  de  Taylor  (cosas  internas  de  máxi¬ 
ma)  como  una  función  normal.  Esta  manera  de  guardarlo  es  más  cómoda  para 
posteriores  evaluaciones. 

(°/0i3)  trunc  (taylor  (eos  (x)  ,x,  0 , 6) ) ; 

2  4  fi 

ry*  ry*  ~  /•v»'-' 

(%°3>  1-T  +  24-  720  +  - 

En  tanto  que,  el  polinomio  de  Taylor  de  grado  5  de  la  función  cos(x ) 
alrededor  de  x  =  tt  será 

(°/0i4)  taylor  (eos  (x)/x,x,°/0pi,  5) ; 


(7T2—  2)  (x  —  tt)2  (7T2—  2)  (x— 7r)3  (tt4  —  12  7r2  +  24)  (x  —  7r)4 


2  7r4 


2  7T4 


24t r5 


+ 


(%o4)/T/  -i  +  ys  + 

^7T4  — 12  7T2+24^  (X  —  7t)5 

24  7T6  ^  ’  ‘  ‘ 

Dibujemos  la  función  f(x)  =  cos(x)  y  su  polinomio  de  Taylor  de  orden  8 
en  torno  a  x  =  0 


(0/oi5)  f  (x)  :=cos(x) ; 

( %o5)  f  (r)  :=  eos  (x) 

(0/oi6)  plot2d(  [f  (x) , taylor (f  (x) ,x,0,8)]  ,  [x,-8,8]  ,  [y ,-2, 2] ) ; 


(%o6) 
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En  teoría,  un  polinomio  de  Taylor  de  orden  más  alto  debería  aproximar 
mejor  a  la  función.  Vamos  ahora  a  dibujar  las  gráficas  de  la  función  f(x)  = 
cos(x)  y  de  su  polinomio  de  Taylor  de  orden  14  en  el  cero  para  comprobar 
que  la  aproximación  es  más  exacta. 

(0/0i7)  plot2d(  [f  (x) , taylor (f  (x)  ,x,0, 14)]  ,  [x,-8,8]  ,  [y, -2, 2] )  ; 
(%o7) 


-8  -6-4  -2  02468 


Ejercicio.  Programe  con  Maxirna  lo  siguiente:  Sea  la  función  j'(x)  = 
1  +  cos(x )  ¿Cuál  es  el  grado  mínimo  n  para  que  el  polinomio  de  Taylor  T(x) 
en  torno  a  x  =  0  cumpla  que  |/(0,3)  —  T(0,3)|  <  0,0001? 

(%i8)  k: 1 ; 

(%o8)  1 


132 


Capítulo  5.  Interpolación,  derivación  e  integración  numérica. 

Mejor  aproximación  por  mínimos  cuadrados 


(°/0i9)  f  (x)  :  =l+cos  (x)  ; 

(%o9)  f  (x)  1  +  eos  (x) 

(7.110)  define (T(x)  ,  truno (taylor(f  (x)  ,x, 0 ,k) ) ) ; 

( %ol0)  T  (x)  :=  2 

C/.Í11)  while  abs(f (0.3)-T (0.3)) >0.0001  do 

(k:k+l , define (T(x) , truno (taylor (f (x) , x,0 ,k) ) ) ) ; 

( %oll)  done 

(7oil2)  k; 

( %ol2)  4 

5.1.5.  Splines  Naturales 

De  acuerdo  con  lo  visto  en  teoría,  primero  definimos  los  nodos  de  inter¬ 
polación 

C/.Í13)  ti :  1 ; 

( %ol3)  1 

C/.Í14)  t2:2; 

( %ol4)  2 

(%i 15)  t3:5; 

( %ol5)  5 

Segundo,  definimos  los  valores  de  la  función  en  los  nodos 
C/.Í16) 

( %ol6)  -  1 
C/.Í17)  f 2 : 1 ; 

( %ol7)  1 
C/.Í18)  f 3 : 3 ; 

( %ol8)  3 
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En  tercer  lugar,  calculamos  los  espaciados  entre  nodos 
C/.Í19)  hl:t2-tl; 

( %ol9)  1 

(°/0i20)  h2:t3-t2; 

( %o20)  3 

En  cuarto  lugar,  especificamos  que  son  splines  naturales 
( °/o i 2 1 )  zl:0;  z3:0; 

(%o21)  0  (%o22)  0 

Luego,  resolvemos  el  sistema  lineal  para  calcular  las  z’s  (derivadas  segun¬ 
das  en  los  nodos  intermedios) 

(°/0i23)  derivadas_segundas :  linsolve  ( [hl*zl+2*  (hl+h2)  *z2+h2*z3= 
6/h2*(f3-f2)-6/hl*(f2-fl)] , [z2] ) ; 

(%o23)  [z2  =  -1] 

(°/0i24)  z2 :  rhs  (derivadas_segundas  [1] ) ; 

( %o24)  -  1 

Para  acabar  dando  las  expresiones  de  cada  uno  de  los  polinomios  cúbicos 
de  interpolación,  comenzando  por  el  primero 

C/.Í25)  SI  (x)  :  =z2/  (6*hl)  *  (x-t  1)  ~3+zl/  (6*hl)  *  (t2-x)  ~3+ 
(f2/hl-z2*hl/6)*(x-tl)+(fl/hl-zl*hl/6)*(t2-x) ; 


^  (x  -  íl)  + 


(  %o25)  SI  (x)  : 


Damos  la  expresión  del  segundo  polinomio  (en  este  ejemplo  no  hay  más) 


C/.Í26)  S2  (x)  :  =z3/  (6*h2)  *  (x-t2)  ~3+z2/  (6*h2)  *  (t3-x)  ~3+ 
(f 3/h2-z3*h2/6) * (x-t2) + (f 2/h2-z2*h2/6) * (t3-x) ; 


~3  ^2 

( %o26)  S2  (x)-.=  ^-2(x-nf  +  —  (Í3  -  x)3  + 


/  3  z3h2 


h2  6 


/ 2  z2  h2 

h2  6 


(¿3  —  x) 


(x  - 12)  + 
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Ahora  utilizamos  los  polinomios  hallados  para  hacer  estimaciones,  por 
ejemplo  para  aproximar  /(1,5)  utilizaremos  la  primera  cúbica  Sl(x). 

(7.127)  SI  (1.5); 

( %o27)  0,0625 

Y  si  queremos  estimar  /'( 2),  podemos  utilizar  la  primera  o  la  segunda, 
pues  2  es  un  nodo  de  interpolación. 

(7.Í28)  define (dSl  (x) , dif f  (SI  (x)  ,x) )  ; 

(%o28)  dSl  (x)  :=  -  Axil! 

6  2 

(7.Í29)  dSl  (2)  ; 

(  %o29)  5 

Si  derivamos  S2(x)  debe  salir  lo  mismo,  ya  que  t  =  2  es  un  nodo  de 
interpolación 

(7.Í30)  def ine(dS2(x)  ,diff  (S2(x)  ,x))  ; 

( %o30)  dS2M:=ílxA  +  S 

6  6 

(7.131)  dS2  (2)  ; 

(%o31)  | 

Para  estimar  /"( 2)  podemos  utilizar  S'l(x)  o  S2(x),  por  la  razón  aducida. 
(7.Í32)  def  ine(d2Sl(x)  ,diff  (Sl(x)  ,x,2))  ; 

(%o32)  d2Sl  (x)  :=  1  —  x 
(7.133)  d2Sl  (2)  ; 

( %o33)  -  1 

(7.Í34)  def  ine(d2S2(x)  ,diff  (S2(x)  ,x,2) )  ; 

(%o34)  d2S2(x)  :=  - 

O 

(7.135)  d2S2  (2)  ; 

(%o35)  -1 
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5.1.6.  El  paquete  “interpol” 

Maxima  dispone  del  paquete  “interpol”  que  permite  interpolar  un  con¬ 
junto  de  datos  por  una  función  lineal  a  trozos  es  decir  por  la  poligonal  que 
pasa  por  ellos,  por  un  polinomio  o  por  splines  cúbicos,  para  ello  se  comienza 
cargando  dicho  paquete  mediante  la  orden  “load(interpol)” ,  luego  los  da¬ 
tos  a  interpolar,  supongamos  que  son  los  dados  antes,  mediante  “datos: [[0, 
1] , [1 ,  5], [2,  31], [3,  121], [4,  341]]”  y  finalmente  la  salida  requerida  se  pide  en 
la  forma: 

■  linearinterpol(datos)  si  se  requiere  la  función  poligonal  que  pasa  por 
los  puntos  dados. 

■  lagrange(datos)  si  se  requiere  el  polinomio  de  interpolación  de  La- 
grange  que  pasa  por  esos  puntos. 

■  spline(datos)  si  se  requiere  el  splinc  cúbico  natural  con  esos  datos. 

Ejercicio.  Aplicar  estos  comandos  para  obtener  el  polinomio  de  interpo¬ 
lación  de  Lagrange  para  los  datos  anteriores  y  para  obtener  el  spline  cúbico 
del  párrafo  (5.1.5). 

5.1.7.  Problemas  mixtos  de  interpolación 

Hay  problemas  que  no  se  ajustan  a  ninguno  de  los  métodos  típicos  que  se 
estudian  en  un  curso  de  cálculo  numérico  básico,  tales  como  Lagrange,  Her- 
mite,  Splines,  etcétera.  Para  resolver  algunos  de  estos  problemas  no  hay  mas 
que  resolver  sistemas  lineales.  Pongamos  por  ejemplo  que  queremos  buscar 
un  polinomio  de  grado  2  que  satisfaga  p(l)  =  2,p'(l)  =  —  l,p'(2)  =  3.  Los 
coeficientes  del  polinomio  serán  las  soluciones  del  sistema  lineal 

(70i36)  coef  :linsolve(  [a+b+c=2,2*a+b=-l,4*a+b=3]  ,  [a,b,c] ) ; 

( %o36)  [a  =  2,  b  =  -5,  c  =  5] 

Así  el  polinomio  de  grado  2  que  satisface  las  condiciones  anteriores  es 
p(x )  =  2x2  —  5x  +  5. 


5.2.  Fórmulas  de  derivación  numérica  de  tipo 
interpolatorio 

Estas  fórmulas  consisten  en  aproximar  las  derivadas  de  una  función  en  un 
punto  por  las  derivadas  correspondientes  de  su  polinomio  de  interpolación 
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en  unos  puntos  dados,  también  pueden  obtenerse  imponiendo  condiciones 
de  exactitud,  que  se  traducen  en  un  sistema  lineal  en  los  coeficientes  de  la 
fórmula. 

Supongamos  que  conocemos  los  valores  de  una  función  derivable  en  los 
puntos  xo,  X\  =  xo +h  y  X2  =  xq+2H  y  queremos  obtener  un  valor  aproximado 
de  f'{x o)  mediante  una  fórmula  del  tipo 

f'(x o)  ~  {cof{x o)  +  c\f(x\)  +  c2f(x2))/h 

que  sea  exacta  de  grado  2.  Para  ello,  basta  imponer  que  dicha  fórmula  sea 
exacta  para  /(x)  =  l,x,x 2,  lo  que  se  traduce  en  resolver  el  siguiente  sistema 
lineal  en  los  coeficientes  c0,  ci,  c2 

(°/0i37)  coef  :  linsolve  ( [c0+cl+c2=0 ,  cl+2*c2=l ,  cl/2+2*c2=0]  ,  [cO ,  el ,  c2] )  ; 

(%o37)  [cO  =  —  ^,  el  =  2, c2  =  —  ^] 

Luego  se  trata  de  la  fórmula  de  derivación  numérica 

f,f„  \  _  -3 f(xQ)  +  4 f(x0  +  h)  -  f(x o  +  2 h) 

1  ~  2 h 

Para  probar  la  inestabilidad  del  problema  de  derivación  numérica,  utili¬ 
zaremos  la  fórmula  de  derivación  numérica  de  tipo  interpolatorio  de  primer 
orden  progresiva:  f'{x)  —  ( f(x  +  h)  —  f(x))/h  para  aproximar  la  derivada  de 
f(x)  =  arctg(x)  en  el  punto  x  =  y/2,  como  es  sabido  esta  derivada  vale  1/3. 

En  este  caso,  ejecutando  el  siguiente  programa,  en  el  que  i  es  el  número  de  la 
iteración,  d  muestra  el  numerador  o  incremento  de  la  función  f(x  +  h)  —  f(x), 
h  el  incremento  de  la  variable  independiente,  ad  es  la  aproximación  de  la  de¬ 
rivada  y  “error”  muestra  el  error  de  la  aproximación  ad  obtenida.  Viendo 
la  salida  que  da  for  que  omitimos,  se  observa  que  la  mejor  aproximación  se 
obtiene  para  i  =  25,  siendo  h  =  2,9802322387695313  •  10~8,  luego  empiezan 
a  empeorar  los  resultados  debido  a  la  cancelación  de  cifras  significativas  y  a 
los  errores  de  redondeo. 

(70i38)  numer:true$  f  (x)  :  =atan(x)  ;  a:  sqrt  (2)  ;h:  1 ; N :  50 ; 

for  i:0  thru  50  do (F : f (a+h) ,d: F-f (a) ,  ad:d/h,h:h/2, 
printC'i  =  ",i,"  d  =  \d,  "  h  =  ",2*h, 

"  ad  =  ",ad,  "  error  =  ",l/3-ad))$ 

(  %o39)  f  (x)  :=  atan  (x)  (  %o40)  1,414213562373095 
(  %o41)  1  (  %o42)  50 

Ahora  utilizaremos  la  fórmula  de  derivación  numérica  de  tipo  interpola- 
torio  centrada  de  segundo  orden:  f(x)  ~  (/(x  +  h)  —  f(x  —  h))/2h  para 
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aproximar  la  derivada  de  f(x)  =  arctg(x)  en  el  punto  x  =  \/2.  En  este  caso 
ejecutando  el  siguiente  programa,  se  observa  que  la  mejor  aproximación  se 
obtiene  para  i  =  17,  siendo  h  =  7,62939453125  •  10~6,  luego  empiezan  a  em¬ 
peorar  los  resultados  debido  a  la  cancelación  de  cifras  significativas  y  a  los 
errores  de  redondeo. 

(70i44)  numer:true$  f  (x)  :  =atan(x)  ;  a:  sqrt  (2)  ;h:  1 ; N :  26 ; 

for  i : 0  thru  50  do (F2 : f (a+h) ,F1 : f (a-h) ,  d: F2-F1 , 
ad:d/ (2*h) ,h:h/2,  printC'i  =  ",i,"  d  =  ",d, 

"  h  =  " , 2*h,  "  ad  =  ",ad, 

"  error  =  " , 1/3-ad) )$ 

(  %o45)  f  (x)  :=  atan  (x)  (  %o46)  1,414213562373095 
(  %o47)  1  ( %o48)  26 

En  este  caso  la  mejora  se  debe  a  que  el  método  es  de  segundo  orden,  con 
error  de  truncatura  de  la  forma  0(h2),  no  como  el  anterior  que  es  de  la  forma 
O(h). 


5.3.  Fórmulas  de  integración  numérica  de  ti¬ 
po  interpolatorio 

Son  las  que  se  obtienen  sustituyendo  la  función  integrando  por  su  polino¬ 
mio  de  interpolación  en  puntos  adecuados  del  intervalo  de  integración.  Si  los 
puntos  están  igualmente  espaciados,  las  fórmulas  se  dicen  de  Newton-Cótes, 
cerradas  si  entran  los  extremos  del  intervalo  y  abiertas  en  otro  caso.  Cuan¬ 
do  el  intervalo  de  integración  se  divide  en  un  número  finito  de  subintervalos 
de  la  misma  longitud  y  sobre  cada  uno  de  ellos  se  utiliza  una  fórmula  de 
integración  numérica  de  tipo  interpolatorio  simple,  se  obtiene  una  fórmula 
compuesta,  veamos  seguidamente  dos  de  las  más  usuales. 


5.3.1.  Fórmula  del  trapecio  compuesta 


Se  trata  ahora  de  dividir  el  intervalo  de  integración  [a,  b]  en  n  partes 
iguales,  de  amplitud  h  —  (b  —  a)/n,  y  aplicar  a  cada  una  de  ellas  la  conocida 
regla  del  trapecio,  que  aproxima  la  integral  de  /  en  cada  subintervalo  [x¿,  x¿+i] 
en  la  forma 

rxi+i 


f  (x)  ^  (h/2)[f(xi)  +  f(xi+ 1] 


Por  ejemplo,  si  queremos  aproximar  la  integral  de  f(x)  =  cos(x2)  en  el 
intervalo  [0, 1],  comenzamos  definiendo  el  número  n  de  veces  que  se  aplica  la 
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fórmula  del  trapecio  simple 
(7.150)  n:100; 

( %o50)  100 

Ahora,  definimos  la  función  a  integrar 
(°/0i51)  f (x) : =cos (x~2) ; 

( %o51)  f  (x)  :=  eos  (x2) 

Definimos  E  como  la  suma  de  los  valores  de  la  función  en  los  puntos 
extremos 


(7.152)  E:  f  (0)+f  (1)  ; 

(%o52)  1,54030230586814 

Espaciado  y  nodos  interiores 


C/.Í53) 

a:0; 

( %o53) 

0 

(7.154) 

b:  1 ; 

( %o54) 

1 

(7.155) 

h:  (b-a)/n; 

( %o55) 

0,01 

(7,156) 

for  i:l  thru  n-1  do( 

x [i] : a+i*h 
); 

( %o56) 

done 

(7.157) 

x[l]  ; 

( %o57) 

0,01 

(7,158) 

x  [2]  ; 

( %o58) 

0,02 

(7,159) 

x  [n-1]  ; 

( %o59) 

0,99 
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Calculamos  la  contribución  de  los  nodos  interiores 
C/.Í60)  1:0; 

( %o60)  0 

(°/0i61)  for  i:l  thru  n-1  do  (I :  I+f  (x  [i] ) ) ; 

( %o61)  done 
(°/0i62)  I ,  numer ; 

(%o62)  89,68087018510771 

Finalmente,  obtenemos  el  valor  aproximado  de  la  integral  en  la  forma 
(70i63)  V:h*(E/2+I)  , numer; 

(%o63)  0,90451021338042 

Ahora,  reuniendo  todo  lo  anterior,  construiremos  una  función  de  Maxima, 
mediante  un  block,  para  el  cálculo  aproximado  de  integrales  mediante  la  regla 
del  trapecio  compuesta  como  sigue: 

(°/0i64)  TC  (f  ,  a ,  b ,  n)  :  =block  ( [numer]  ,  numer :  true , 

E: f (a)+f (b) ,h : (b-a)/n,f or  i:l  thru  n-1  do (x [i] : a+i*h) , 

1:0, for  i:l  thru  n-1  do  (I : I+f (x [i] ) ) , 

print ( ’ intégrate (f (x) ,x, a,b) , ,h* (E/2+1) ) ) $ 

Seguidamente  la  aplicamos  para  aproximar  la  integral  de  f(x)  =  cos(x 2) 
en  el  intervalo  [0, 1] 

C/.Í65)  f  (x)  :=cos(x~2)$  TC (f  , 0 , 1 , 100) $ 

í  eos  ( X 2)  dx  ~  0,90451021338042 

Jo 


Observación.  Puesto  que  conocemos  la  expresión  del  error  de  la  fórmula 
del  trapecio  compuesta,  caso  de  ser  la  función  a  integrar  de  clase  C ^  y  de 
que  se  pueda  acotar  el  valor  absoluto  de  f"(x)  en  el  intervalo  dado,  puede 
mejorarse  el  programa,  obteniendo  previamente  el  número  n  de  subdivisiones 
a  realizar  para  conseguir  que  el  módulo  del  error  absoluto  cometido  sea  menor 
que  un  épsilon  dado. 


Capítulo  5.  Interpolación,  derivación  e  integración  numérica. 
140  Mejor  aproximación  por  mínimos  cuadrados 


5.3.2.  Regla  de  Simpson  compuesta 

En  este  caso  utilizaremos  la  regla  de  Simpson  compuesta  para  aproximar 
una  integral,  lo  vemos  paso  a  paso  en  el  siguiente  ejemplo,  en  el  que  además 
calculamos  primero  en  cuántos  subintervalos  iguales  hay  que  dividir  el  in¬ 
tervalo  de  integración  para  conseguir  una  aproximación  con  error  absoluto 
menor  que  una  épsilon  dado.  La  fórmula  del  trapecio  simple  aproxima  una 
integral  en  la  forma 

Jc  f(x)  -  +  4/(^y^)  +  /(<*)] 

Aproximar  utilizando  la  fórmula  de  Simpson  compuesta  el  área  definida 
entre  la  curva  y  =  1/(5  —  x),  2  <  x  <3  y  el  eje  x.  ¿Cuántas  divisiones  del 
intervalo  [2,3]  son  necesarias  para  asegurar  un  error  menor  que  10-6?. 

(%i67 )  kill(all)$  numer:true$  f (x) : =1/ (5-x) ;  a : 2 ;  b:3; 

(%o2)  f(z):=— L_ 

( %o3)  2 

(%o4)  3 

Introducimos  la  cota  de  error 
C/.Í5)  Er :  1CT-6 ; 

(%o5)  9,9999999999999995 10“7 

Para  obtener  una  cota  del  error  absoluto  de  la  regla  de  Simpson  compues¬ 
ta,  hacemos  la  derivada  cuarta  de  f(x),  que  resulta  ser 

f4:diff (f (x) ,x,4) ; 

24 

(5-x)5 

Con  lo  cual  el  máximo  valor  absoluto  de  la  misma  en  [2,  3]  es 
C/.Í7)  f4m:24/(5-3)~5; 

(%o7)  0,75 

Por  tanto,  hemos  de  dividir  el  intervalo  en  un  número  n  de  subintervalos 
mayor  que  el  número  siguiente  (ver  por  ejemplo  en  [10]). 


C/.Í8)  ( (b-a)  ~5*f 4m/  (2880*Er) ) ~0 . 25 ; 

( %o8)  4,017142094723259 
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Luego,  para  estar  seguros  tomamos  n  —  5. 

(0/oi9)  n:5; 

(%o9)  5 

Subdividimos  el  intervalo  de  partida  en  2  x  5  =  10  partes,  definimos  el 
paso  h  entre  nodos  como  ( b  —  a)/2n  y  con  objeto  de  considerar  la  aportación 
de  los  puntos  extremos  (Ext),  los  que  separan  intervalos  (Ip)  y  los  puntos 
medios  (Ii),  inicializamos  como  cero  estas  cantidades. 

( °/o  i  1 0 )  Ext  :0;Ip:0;Ii:0;h:  (b-a)  /  (2*n)  ; 

(%ol0)  0 
(%oll)  0 
( %ol2)  0 
(%ol3)  0,1 

Ahora  definimos  los  nodos 
(°/0i  13)  h :  (b-a)  /  (2*n) ; 

(%ol3)  0,1 

(°/0i  14)  for  i  :  0  thru  2*n  do  (x  [i]  :  2+i*h) ; 

( %ol4)  done 

Calculemos  la  contribución  de  los  nodos  de  índice  par,  que  tal  y  como 
los  hemos  numerado  son  los  puntos  que  separan  subintervalos  en  los  que  se 
aplica  la  regla  de  Simpson  simple 

(°/0il5)  for  i  :  2  step  2  thru  2*n  do  (Ip :  Ip+f  (x  [i] ) ) ; 

( %ol5)  done 

Calculemos  la  contribución  de  los  nodos  de  índice  impar,  que  son  los  pun¬ 
tos  medios  de  los  subintervalos  en  los  que  se  aplica  la  fórmula  de  integración 
simple,  que  resulta  ser 

(70il6)  for  i:l  step  2  thru  2*n-l  do  (Ii  :  Ii+f  (x  [i] ) )  ; 

( %ol6)  done 

Y  finalmente  la  de  los  puntos  extremos 
(7,il7)  Ext :  f  (x  [0]  )+f  (x  [2*n]  )  ; 

(%o!7)  0,83333333333333 
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Aplicando  la  regla  de  Simpson  compuesta,  obtenemos  la  aproximación 
pedida 

(%il8)  area_aprox:  h/3* (Ext+4*Ii+2*Ip) ,nuraer ; 

(%ol8)  0,40546527417092 

Calculemos  el  área  exacta  mediante  la  regla  de  Barrow 
(°/0il9)  area_exacta:  intégrate (f  (x)  ,x,2,3)  ,numer; 

(%ol9)  0,40546510810816 

Con  lo  que  la  diferencia  entre  la  solución  aproximada  y  exacta  será 
(°/0i20)  error_aprox:  abs  (area_aprox-area_exacta) ; 

(%o20)  1,6606275687891525  10"7 

Generalizando  lo  anterior,  definiremos  otra  función  de  Maxima,  mediante 
un  block,  para  el  cálculo  aproximado  de  integrales  mediante  la  regla  de  Sim¬ 
pson  compuesta;  para  ello,  consideramos  la  función  /  en  el  intervalo  [a,  b] , 
definimos  una  partición  del  intervalo  de  amplitud  h  =  (b  —  a)/2n1  dividiendo 
el  intervalo  en  2 n  partes  iguales  y  aplicamos  la  fórmula  de  Simpson  simple 
n  veces,  una  a  cada  subintervalo  [xí,xí+ 2]  para  i  =  0,2,  ...,2 (n  —  1),  siendo 
xq  =  a,Xi  =  xo+ih  ( i  =  1,  2, ...,  2 n)  y  r2 n  =  b ;  puesto  que  la  amplitud  de  cada 
uno  de  los  n  subintervalos  es  2 h  resulta  que  2/r/6  =  h/3,  por  tanto  la  integral 
de  /  en  cada  subintervalo  se  aproxima  por  (h/3)[f(xi)  +  4/(ri+i)  +  f(xi+ 2]; 
entonces,  denotando  la  contribución  de  los  puntos  extremos  por  Ext,  la  de 
los  puntos  intermedios  de  índice  impar  por  Ii  (estos  son  los  puntos  medios 
de  los  intervalos  donde  se  aplica  la  regla  de  Simpson  simple)  y  por  Ip  la 
correspondiente  a  los  puntos  intermedios  de  índice  par  (estos  son  los  puntos 
que  separan  los  subintervalos  donde  se  aplica  la  fórmula  de  Simpson  simple), 
resultará  la  fórmula  de  Simpson  compuesta  dada  por  la  siguiente  función. 

(°/0i21)  SC(f , a,b,n)  :  =block(  [numer]  ,numer : true , 

Ext : f (a)+f (b) ,h : (b-a)/(2*n) ,f or  i:0  thru  2*n 
do (x [i] : a+i*h) , 

li:0,for  i : 1  step  2  thru  2*n-l  do  (Ii : Ii+f (x [i] ) ) , 
lp:0,  for  i : 2  step  2  thru  2*n-2  do  (Ip : Ip+f (x [i] ) ) , 
print ( ’ intégrate (f (x) ,x, a,b) , " (con  SC) , 

(h/3) * (Ext+4*Ii+2*Ip) ) ) $ 

Aplicando  dicha  regla  al  problema  del  párrafo  anterior 
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C/.Í22)  f  (x)  :=cos(x~2)$  SC (f  , 0 , 1 , 100) $ 

i 

eos  (x2)  dx(conSC)  ~  0,90452423790113 

Observación.  Al  igual  que  en  el  caso  anterior,  dado  que  conocemos  la 
expresión  del  error  de  la  fórmula  de  Simpson  compuesta,  caso  de  ser  la  función 
a  integrar  de  clase  C ^  y  de  que  se  pueda  acotar  el  valor  absoluto  de  f^v\x) 
en  el  intervalo  dado,  puede  mejorarse  el  programa,  obteniendo  previamente 
el  número  n  de  subdivisiones  a  realizar  para  conseguir  que  el  módulo  del 
error  absoluto  cometido  sea  menor  que  un  épsilon  prefijado,  evitando  cálculos 
superfluos. 

Ejercicio.  Aplicar  las  fórmulas  del  trapecio  y  de  Simpson  compuestas 
a  la  función  f(x)  =  1/(5  —  x)  en  el  intervalo  [2,3],  con  n  =  100.  Com¬ 
parar  los  resultados  con  el  valor  exacto  de  la  misma  dado  por  log (3/2)  = 
0,40546510810816. 

5.4.  Mejor  aproximación  por  mínimos  cua¬ 
drados  continua  o  discreta 

Sea  V  =  C ([a,  b])  el  espacio  vectorial  real  de  las  funciones  continuas  en  el 
intervalo  cerrado  y  acotado  [a,  b\,  si  para  cada  par  de  funciones  /  y  g  de  V, 
definimos  el  producto  escalar  en  la  forma  (f\g)  =  '  f(x)g(x)dx,  tendremos 

un  espacio  prehilbertiano  real.  Entonces,  dado  cualquier  subespacio  S  de  V, 
de  dimensión  finita  m,  para  toda  /  £  V  existe  un  único  fs  E  S  tal  que  f—fs  E 
S1-1,  es  decir  existe  un  único  fs  E  S  tal  que  (/  —  fs\u)  =0  para  todo  v  E  S 
y,  teniendo  en  cuenta  la  definición  del  producto  escalar,  podemos  decir  que 
para  toda  f  E  V  existe  un  único  fsES  tal  que  f  (f(x)  —  fs(x))v(x)dx  =  0 
para  toda  v{x)  E  S,  siendo  esta  fs  la  mejor  aproximación  por  mínimos 
cuadrados  continua  de  /  por  elementos  de  S'.La  mejor  aproximación  fs 
puede  hallarse  reolviendo  el  sistema  lineal  de  mínimos  cuadrados: 


■  Si  {ui,  i/2,  ■  ■  •  ,  vm}  es  una  base  de  S ,  fs  =  Y1T=\  y  se  calculan  los 
Ai,  A2,  •  •  •  ,  Am  con  la  condición  de  que  /  —  fs  sea  ortogonal  a  S  o  lo 
que  es  lo  mismo  a  (z'i,  ^2,  ■  ■  •  ,  z/m},  es  decir  se  han  de  verificar  para 
j  E  (1,  2,  •  •  •  ,  m}  las  condiciones  siguientes: 

(/  -  fsWj)  =  o  (fWj)  =  ( fsWj ) 
y  sustituyendo  As  por  su  expresión  anterior,  se  obtiene  al  sistema  de  m 
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ecuaciones  lineales 


Uj)  =  ( f\uj )  (j  =  1,2,---  , m) 

1=1 

que  es  compatible  determinado  (pues  su  matriz  de  coeficientes  es  simétri¬ 
ca  y  definida  positiva),  lo  que  permite  obtener  las  incógnitas  Ai,  ■  ■  •  ,  \m. 

En  cambio,  si  consideramos  en  Mn  el  producto  escalar  euclídeo,  definido 
Wx,y  G  Mn  por  (x\y)  =  Ym=i  xíVíi  dado  un  subespacio  vectorial  S  de  dimen¬ 
sión  m,  de  acuerdo  con  el  teorema  de  la  proyección,  para  todo  í/6Kn  existe 
un  único  ys  G  S  que  es  la  mejor  aproximación  por  mínimos  cuadrados 
discreta  de  y  por  elementos  de  S,  que  se  calcula  por  cualquiera  de  las  dos 
formas  anteriores,  teniendo  en  cuenta  que  ahora  el  producto  escalar  viene 
dado  por  una  suma. 

Veamos  a  modo  de  ejemplo  el  siguiente  problema: 

■  En  el  espacio  euclídeo  de  las  funciones  reales  continuas  definidas  en  el 
intervalo  [ — 7r,  7t]  ,  dotado  del  producto  escalar  (f\g)  =  f*  f(x)g(x)dx, 
se  pide  hallar  la  mejor  aproximación  por  mínimos  cuadrados  continua 
de  la  función  f(x)  =  1  +  |x|  por  polinomios  trigonométricos  de  grado 
menor  o  igual  que  dos.  Repreentar  ambas  funciones  en  ese  intervalo. 

Nos  piden  aproximar  la  función  f(x)  =  1  +  |x|  por  una  función  de  la 
forma:  fs(x)  =  aO  +  al  cos(x)  +  61  sin(x)  +  a2  cos(2a;)  +  62  sin(2x).  Para  ello 
hemos  de  calcular  aO,  al,  61,  a2,  62  tales  que  sean  soluciones  del  sistema  lineal 
de  mínimos  cuadrados: 

( °/o i  1 )  load(abs_integrate)$  numer:true$ 

fs(x) : =aO+al*cos (x)+bl*sin(x)+a2*cos (2*x)+b2*sin(2*x) ; 
f (x) :=l+abs(x) ; 

eql :  intégrate (fs (x)  ,x,-°/0pi,%pi)  = 

intégrate (f (x) ,x,-%pi,%pi)$ 
eq2:  intégrate  (fs  (x)  *cos  (x)  ,x,-°/0pi,%pi)  = 

intégrate (f (x) *cos (x) , x , -%pi , %pi) $ 
eq3:  intégrate  (fs  (x)  *sin(x)  ,x,-°/„pi,%pi)  = 

intégrate (f (x) *sin(x) , x , -%pi , %pi) $ 
eq4:  intégrate  (fs  (x)  *cos  (2*x)  ,x,-°/0pi  ,°/0pi)  = 

intégrate (f  (x)  *cos  (2*x)  , x , -%pi , °/0pi) $ 
eq5 :  intégrate (f  s (x) *sin(2*x)  ,x,-°/0pi  ,°/0pi)  = 

intégrate (f  (x)  *sin(2*x)  , x , -°/0pi , °/0pi) $ 
linsolve ( [eql , eq2 , eq3, eq4, eq5] , [aO , al ,bl , a2 ,b2] ) ; 
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(  %o3)  fs  (x)  :=  aO  +  al  eos  ( x )  +  61  sin  (x)  +  a2  eos  (2  x)  +  62  sin  (2  x) 

(  %o4)  f  (x)  :=  1  +  \x\ 

(%ol0)  [aO  =  2,570796326794899,  al  =  -1,273239544735164,61  =  0, 
a2  =  -7,7661728742053211 10"16,  62  =  0] 

Luego  la  mejor  aproximación  pedida  será 

fs  (x)  :=  2,5707963267949  -  1,273239544735165  eos  (x) 

-  7,766172874205326  10“16  eos  (2  x) 

Ahora  si  representamos  ambas  en  el  intervalo  [ — 7T,  7t],  mediante  el  coman¬ 
do  plot2d,  podremos  apreciar  su  proximidad. 

(7„ill)  kill(all)$  f  (x)  :=l+abs(x)$ 

f s (x) : =2 . 5707963267949-1 . 273239544735165*cos (x) 

-7 . 766172874205326* (10~- 16) *cos (2*x) $ 
plot2d(  [f  (x)  , f s (x) ]  ,  [x,-0/0pi,°/0pi] )  ; 

( %o3) 


5.5.  Ejercicios  propuestos 

Realizar  los  ejercicios  siguientes  utilizando  Maxima. 

1.  Dados  los  valores  aproximados  de  una  función  f(x):f( 0,0)  =  1,0,  /( 0,5)  ~ 
1,224745,  /(1,0)  ~  1,414214,  se  pide  hallar  el  polinomio  de  interpola¬ 
ción  de  dos  formas  diferentes  y  utilizarlo  para  dar  un  valor  aproximado 
de  /( 0,4). 
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2.  Sea  f(x)  =  ex,  calcule  el  grado  mínimo  n  del  polinomio  de  Taylor  T(x) 
para  que  se  verifique  |/(0,1)  —  T(0,1)|  <  1CT5. 

3.  Se  considera  la  siguiente  tabla  de  valores 


t 

1 

3 

4 

f(t) 

-2 

0 

1 

Se  pide: 

■  Hallar  el  spline  cúbico  natural  que  ajusta  estos  datos. 

■  Utilizar  el  spline  para  estimar  /( 2),  /'( 3)  y  /"( 3). 

4.  ¿En  cuántos  subintervalos  iguales  es  necesario  dividir  el  intervalo  de 
integración  para  aproximar  por  la  regla  del  trapecio  compuesta,  con 
error  menor  que  5-10-7,  la  integral  f()  -4^-?.  Hallar  dicha  aproximación 
y  comparar  con  la  solución  exacta. 

5.  Aproximar  por  la  regla  de  Simpson  compuesta,  con  error  menor  que 
1CT',  la  integral  fQ  a/1  +  xdx?.  Comparar  con  la  solución  exacta. 

6.  Aproximar  por  la  regla  de  Simpson  compuesta,  con  error  menor  que 
1CT7,  la  integral  fQ  xcosxdx. 


Capítulo  6 

Métodos  numéricos  de 
integración  de  PVI  para  EDOs 

6.1.  Método  de  Euler 

El  método  de  Euler  es  el  método  numérico  más  simple  para  integrar 
numéricamente  un  PVI:  y'  =  f(t,y),  y(t0 )  =  y0,  consiste  en  generar  las 
aproximaciones  yn,  a  la  solución  en  tn,  en  la  forma  yn+\  =  yn  +  h  ■  f(tn,yn). 

Comenzaremos  aplicándolo  al  PVI:  y'  =  y,y( 0)  =  1;  que  integraremos  en 
el  intervalo  [0,1],  tomando  h  =  0,1,  obteniendo  los  valores  aproximados  de 
la  solución  en  los  puntos  de  la  red  y  representando  la  solución  aproximada 
frente  a  la  exacta,  dada  en  este  caso  por  y(t)  =  e*.  Un  programa  sencillo  de 
Maxirna  para  aplicarlo  en  este  caso  es  el  siguiente. 

(°/0il)  kill(all)$  numer:true$ 

T :  1$  N :  10$  h:T/N$  t[0]:0$  def  ine  (f  (t ,  y)  ,  y)  $  y  [0]  :  1$ 
for  k:l  thru  10  do 

(t[k]  :t[0]+k*h,y[k]  : y  [k— 1]  +h*f  (t  [k-l]  ,y[k-l]))$ 
print ("Salida  numérica:  " , sol :makelist ( [t [j] , y [ j ] ] , j ,0,N))$ 
print ("Solución  exacta  versus  solución  aproximada: ")$ 
wxplot2d( [ [discrete , sol] , %e~t] , [t , 0 , 1] , [style , [points ,2,2] , 
[lines , 1 , 1] ] , [legend, "y (t)  aproximada" , "y(t)  exacta"], 
[xlabel , "t"] ,  [ylabel , "y"] ) ; 

Salida  numérica: 

[[0,1], [0.1, 1.1], [0.2, 1.21], [0.3, 1.331], [0.4, 1.4641], [0.5, 1.61051], [0.6, 1.771561], 

[0.7, 1.9487171], [0.8, 2.14358881], [0.9, 2.357947691], [1.0, 2.5937424601]] 

El  método  de  Euler  nos  ha  dado  los  valores  aproximados  de  la  solución 
en  los  puntos:  0,  0.1,  0.2,...,  0.9  y  1.0.  En  la  gráfica  que  sigue  comparamos  la 
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solución  numérica  con  la  exacta. 


2  g  _ ( _ i _ i _ i _ 

y(t)  aproximada  • 

2  6  '  y(t)  exacta  - -  11 

2.4  -  ,  - 

2.2  ■ 

2  ' 

1.8  ■  . 

1.6  ■  .....  ’ 

1.4  -  * 

1 .2  ■  *  * 

1  L - - - X - X - X - X - 

0  0.2  0.4  0.6  0.8  1 

t 

Figura  6.1:  Solución  exacta  versus  aproximada  con  h  =  0.1 


y(t)  aproximada 
y(t)  exacta 


Si  se  quiere  aplicar  el  método  a  cualquier  otro  PVI,  basta  cambiar  la 
definición  de  /,  la  condición  inicial  es  decir  el  t0  y  el  yo,  la  amplitud  T  del 
intervalo  de  integración  y  el  número  N  de  subintervalos  en  que  se  divide, 
que  está  relacionado  con  h,  pues  es  h  =  T/N.  En  general,  no  se  conoce  la 
solución  exacta  por  lo  que  se  puede  suprimir  la  comparación  entre  las  gráficas, 
que  aquí  hemos  incluido.  Asimismo,  normalmente  no  imprimiremos  toda  la 
solución  numérica  hallada  sino  únicamente  los  valores  que  nos  pidan,  por 
ejemplo  si  quiero  sólo  los  valores  que  nos  da  el  método  anterior  en  los  puntos 
í  =  0,5yí  =  l,  podemos  hacerlo  como  sigue: 

é  7  i  1 2  ó 

0  kill(all)$  numer:true$ 

T :  1$  N :  10$  h:T/N$  t[0]:0$  def  ine  (f  (t ,  y)  ,  y)  $  y  [0]  :  1$ 
for  k:l  thru  10  do 

(t[k]  :  t  [0]  +k*h,  y  [k]  :y[k-l]+h*f  (t  [k-l]  ,y[k-l]))$ 

sol  :makelist  ( [t  [j]  ,y  [j]  ]  ,  j  ,0  ,N)  $  print(  "y(0.5)  ~  ",y[5], 

"  yü.o)  ~  " , y [10]  )$ 

Cuya  salida  es  ?/(0,5)  ~  1,61051  e  2/(1, 0)  ~  2,5937424601. 

Como  sabemos  se  trata  de  un  método  numérico  convergente  de  orden 
uno,  ahora  integramos  el  mismo  problema  tomando  h  =  0,01,  para  ello  basta 
cambiar  en  el  primer  programa  el  valor  de  N,  tomando  ahora  N  =  100. 
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(°/0il2)  kill(all)$  numer:true$ 

T : 1$  N : 100$  h:T/N$  t  [0] :0$ 
kill(f)$  def ine (f (t  ,y)  ,y)  $  y [0] : 1$ 
for  k:l  thru  N  do 

(t[k]  :t  [0]+k*h,y[k]  :y[k-l]+h*f  (t  [k-l]  ,y[k-l]))$ 
print ("Salida  numérica:  " , sol :makelist ( [t [j] , y [ j ] ] , j ,0,N))$ 
print ("Solución  exacta  versus  solución  aproximada: ")$ 
wxplot2d( [ [discrete , sol] ,%e~t] , [t , 0 , 1] , [style , [points ,2,2] , 
[lines ,1,1]] , [legend, "y (t)  aprox" , "y(t)  real"] , [xlabel , "t"] , 
[ylabel , "y"] ) ; 

Salida  numérica:  [[0,1], [0.01, 1.01], [0.02, 1.0201], [0.03, 1.030301], [0.04, 1.04060401], 

[0.05,1.0510100501],  [0.06,1.061520150601],  [0.07,1.07213535210701], . , 

[0.98, 2.651518311363127], [0.99, 2.678033494476758], [1.0, 2.704813829421526]] 

El  método  de  Euler  nos  da  los  valores  aproximados  de  la  solución  en  los 
puntos:  0,  0.01,  0.02,...,  0.99  y  1.0  de  la  red  en  [0,1],  definidos  por  h  =  0,01. 


0  0.2  0.4  0.6  0.8  1 

t 


Figura  6.2:  Solución  exacta  solución  aproximada  con  h  =  0.01 


Si  nuevamente  sólo  queremos  los  valores  aproximados  en  0,5  y  1,0,  es 
suficiente  con  hacer  lo  siguiente 
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(°/0ill)  kill(all)$  numer:true$ 

T : 1$  N : 100$  h:T/N$  t[0]:0$  def ine(f (t ,y) ,y)$  y[0]:l$ 
for  k:l  thru  N  do 

(t  [k]  : t  [0]  +k*h, y  [k]  :y  [k-l]  +h*f  (t  [k-l]  ,y[k-l]))$ 

sol  :raakelist  ( [t  [j]  ,y  [j]  ]  ,  j  ,  0  ,N)  $  print(  "y(0.5)  ~  ",y[50], 

"  y(1.0)  \simeq  ",y[100])$ 

Que  nos  da  y(0,5)  ~  1,644631821843882  e  y(l,0)  ~  2,704813829421526. 

Aunque  en  la  última  gráfica  parecen  coincidir  la  solución  aproximada  y 
la  exacta,  el  caso  es  que  el  valor  aproximado  que  se  obtiene  al  final  del  inter¬ 
valo  resulta  ser  t/i0o  =  2,704813829421526  mientras  que  el  exacto  es  ?/(l,0)  = 
e  =  2,718281828459045,  no  obstante  hay  mucha  diferencia  para  la  gran  can¬ 
tidad  de  cálculos  realizada.  Podemos  ir  haciendo  N  =  1000, 10000, ...,  pero 
el  tiempo  de  cálculo  y  los  resultados  obtenidos  hacen  dudar  de  su  eficiencia. 

Veamos  el  siguiente  programa  para  el  método  de  Euler,  dado  por  un 
block,  que  denominamos  “Eulerpuntofinal” ,  en  el  que  le  pedimos  sólo  el  valor 
aproximado  de  la  solución  del  PVI: 

y'  =  f(t,y),  y(tQ)  =  yo 

al  final  del  intervalo  de  integración,  es  decir  en  el  punto  t0  +  T.  Lo  aplicare¬ 
mos  al  anterior  problema  de  valor  inicial  y'  =  y,  y ( 0)  =  1  para  hallar  el  valor 
aproximado  de  la  solución  en  el  punto  1,0  y  compararla  con  el  valor  exac¬ 
to,  mostrando  también  el  tiempo  de  cálculo  empleado,  que  muestra  la  poca 
eficiencia  computacional  del  método  de  Euler.  Para  mostrar  el  tiempo  de 
cálculo  utilizamos  el  comando  “showtime:true” .  Como  sabemos,  por  defecto 
esta  variable  está  en  false,  pero  una  vez  que  la  declaramos  como  trae  sigue 
así  hasta  que  reiniciemos  o  bien  la  volvamos  a  declarar  como  false  mediante 
el  comando  “showtime: false”. 

(°/0ill)  Eulerpuntof inal(N,T,t,y,f )  :  =block(numer : true , 
h:T/N,for  i:l  thru  N  do  (y :y+h*f (t ,y) ,t : t+h) , 
print ("y(" ,t , ")  es  aproximado  por  ",  y) 

)$ 

En  este  programa  N  es  el  número  de  partes  iguales  en  que  se  subdivide  el 
intervalo  de  integración,  T  es  la  amplitud  de  dicho  intervalo,  el  t  de  entrada 
es  el  punto  inicial  en  el  que  se  da  el  valor  inicial  y,  en  tanto  que  /  es  la  fun¬ 
ción  que  describe  la  ecuación  diferencial  de  primer  orden  a  integrar.  Veamos 
algunos  cálculos  con  el  problema  anterior  mostrando  el  tiempo  empleado: 


(%i 12)  showtime :true$ 
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Salida:  Evaluation  took  0.0000  seconds  (0.0000  elapsed) 

(°/0il3)  f(t,y):=y$  Eulerpuntof inal (10 , 1 , 0 , 1 , f ) $ 

Salida:  Evaluation  took  0.0000  seconds  (0.0000  elapsed) 

?/(l, 0)  es  aproximado  por  2,5937424601 
Evaluation  took  0.0000  seconds  (0.0000  elapsed) 

(°/0il5)  Eulerpuntof  inal  (100 , 1 ,0 , 1 ,  f )  $ 

Salida:  7/(1,000000000000001)  es  aproximado  por  2,704813829421526 
Evaluation  took  0.0100  seconds  (0.0100  elapsed) 

(°/0il6)  Eulerpuntof  inal  (1000 ,  1 ,0, 1 ,f )$ 

Salida:  7/(1,000000000000001)  es  aproximado  por  2,716923932235896 
Evaluation  took  0.0000  seconds  (0.0000  elapsed) 

(°/0il7)  Eulerpuntof  inal  (10000, 1 , 0 , 1  ,f )  $ 

Salida:  7/(0,99999999999991)  es  aproximado  por  2,718145926825227 
Evaluation  took  0.0700  seconds  (0.0700  elapsed) 

(°/0il8)  Eulerpuntof  inal  (10~5 , 1 ,0, 1  ,f  )$ 

Salida:  7/(0,99999999999808)  es  aproximado  por  2,718268237174493 
Evaluation  took  0.4900  seconds  (0.4900  elapsed) 

(70il9)  Eulerpuntof inal (10~6 , 1 ,0, 1  ,f  )$ 

Salida:  7/(1,000000000007918)  es  aproximado  por  2,718280469319462 
Evaluation  took  4.4000  seconds  (4.4000  elapsed) 

(°/0i20)  Eulerpuntof  inal  (10  ~7 , 1 ,0, 1  ,f  )$ 

Salida:  7/(0,99999999975017)  es  aproximado  por  2,718281692544055 
Evaluation  took  42.8000  seconds  (42.8000  elapsed) 

(°/0i21)  showtime :  f alse$ 

Es  fácil  ver  que  en  el  caso  particular  que  nos  ocupa,  la  aproximación 
de  7/(1, 0)  está  dada  por  Un  =  (1  +  h)N  con  h  =  1/N,  pues  es  f(t,y )  = 
y.  Como  se  observa  en  los  casos  que  siguen,  la  solución  aproximada  en  el 
punto  1,0,  cuando  h  va  disminuyendo  va  mejorando  pero  llega  un  momento 
a  partir  del  cual  vuelve  a  empeorar  debido  a  la  acumulación  de  errores  de 
redondeo.  (¡Ojo!,  da  la  solución  numérica  rápidamente  en  numer:true).  Este 
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comportamiento  es  habitual  en  todos  los  métodos  de  un  paso. 

(°/0i22)  N:10~3$  h:l/10~3$  print("la  solución  aproximada  con 

10~3  pasos  es  " , (1+h) ~ ( 10~3) , "  y  el  error  global  es  ", 
°/„e-(l+h)  ~  (1CT3)  )$ 

Salida:  la  solución  aproximada  con  103  pasos  es  2,716923932235521  y  el  error 
global  es  0,0013578962235243 

(%i25)  N:10~4$  h:l/10~4$  print("la  solución  aproximada  con 

10~4  pasos  es  " , (1+h) “ (10~4) , "  y  el  error  global  es  ", 
°/„e-(l+h)  ~  (1CT4)  )$ 

Salida:  la  solución  aproximada  con  104  pasos  es  2,718145926824356  y  el  error 
global  es  1,3590163468890637  •  10~4 

(°/0i28)  N:10~5$  h:l/10~5$  print("la  solución  aproximada  con 

10~5  pasos  es  " , (1+h) “ (10“5) , "  y  el  error  global  es  ", 
%e-(l+h) ~ (10~5) )$ 

Salida:  la  solución  aproximada  con  105  pasos  es  2,718268237197528  y  el  error 
global  es  1,3591261516676667  ■  10~5 

(70i31)  N:10~6$  h:l/10~6$  print("la  solución  aproximada  con 

10~6  pasos  es  " , (1+h) “ (10“6) , "  y  el  error  global  es  ", 
%e-(l+h) ~ (10~6) )$ 

Salida:  la  solución  aproximada  con  106  pasos  es  2,718280469156428  y  el  error 
global  es  1,3593026175762191  •  10~6 

(°/0i34)  N:10~7$  h:l/10~7$  print("la  solución  aproximada  con 

10"7  pasos  es  " , (1+h) ~ (10“7) , "  y  el  error  global  es  ", 
%e-(l+h) ~(10“7))$ 

Salida:  la  solución  aproximada  con  10'  pasos  es  2,718281693980372  y  el  error 
global  es  1,344786726420466  •  10“7 

(°/0i37)  N:10~8$  h:l/10~8$  print("la  solución  aproximada  con 

10~8  pasos  es  " , (1+h) “ (10~8) , "  y  el  error  global  es  ", 
%e-(l+h) ~ (10~8) )$ 

Salida:  la  solución  aproximada  con  108  pasos  es  2,718281786395798  y  el  error 
global  es  4,2063247551737959  ■  10~8 

Observar  que  en  este  último  cálculo  ha  cambiado  la  constante  del  error 
debido  al  aumento  de  los  errores  de  redondeo  y  como  empeora  el  error  global 
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en  los  siguientes,  por  esta  causa,  a  medida  que  h  sigue  decreciendo  o  lo  que 
es  lo  mismo,  aumentando  el  número  de  subintervalos. 

(°/0i40)  N:10~9$  h:l/10~9$  print("la  solución  aproximada  con 

10~9  pasos  es  " , (1+h) ~ (10~9) , "  y  el  error  global  es  ", 
%e-(l+h) ~ (10~9) )$ 

Salida:  la  solución  aproximada  con  109  pasos  es  2,71828203081451  y  el  error 
global  es  -2,023554643848513  •  10"7 

(°/0i43)  N:10~12$  h:l/10~12$  print("la  solución  aproximada  con 

10~12  pasos  es  " , (1+h) ~ (10~12) , "  y  el  error  global  es  ", 
%e-(l+h)~(10~12))$ 

Salida:  la  solución  aproximada  con  1012  pasos  es  2,71852346956828  y  el  error 
global  es  -2,4164110923452498  •  10"4 

(°/0i46)  N:10~15$  h:l/10~15$  print("la  solución  aproximada  con 

10~15  pasos  es  " , (1+h) ~ (10~15)  , "  y  el  error  global  es  ", 
%e- ( 1+h) ~ ( 10~ 15) ) $ 

Salida:  la  solución  aproximada  con  1015  pasos  es  3,035035181396292  y  el  error 
global  es  -0,31675335293725 

Observación.  En  general,  para  métodos  de  un  paso  y  orden  1  se  reco¬ 
mienda  no  tomar  pasos  de  longitud  menor  que  la  raíz  cuadrada  del 
épsilon  de  máquina,  es  decir  menores  que  \/2  52  =  1,4901161193847656  • 
1CP8.  Si  el  orden  del  método  de  un  paso  fuera  p  se  recomienda  no  tomar 
pasos  inferiores  a  la  raíz  de  índice  ( p  +  1)  del  épsilon  de  máquina, 
es  decir  a  p+\/2-52. 

(°/0i49)  °/„e,numer;sqrt(2~(-52))  ; 

(%o49)  2,718281828459045 

(%o50)  1,4901161193847656  1(T8 

Seguiremos  viendo  algunas  variantes  del  programa  anterior  aplicadas  al 
ejemplo  del  PVI:  y'  =  y,  y( 0)  =  1  en  el  intervalo  [0, 1].  Con  pequeños  cambios 
los  programas  de  este  párrafo  y  los  siguientes  se  adaptan  a  otros  PVI  así  como 
a  una  ecuación  de  orden  superior  al  primero  o  a  un  sistema  de  ecuaciones 
diferenciales.  Si  bien  en  general,  como  no  se  conoce  la  solución  exacta,  no 
podremos  hacer  la  comparación  ni  el  dibujo  de  esta.  El  siguiente  programa 
es  una  pequeña  variación  del  de  más  arriba,  en  el  que  se  realizan  y  guardan 
los  t[n]  e  y[n],  pero  sólo  se  muestra  el  último  valor  calculado  y[N ]: 
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(°/0i51)  Eulerredpuntof inal(N,T)  :=block( 

numer:true,kill(y,t,f) ,h:T/N,t [0] :0, 
y [0] : 1 , define (f (t  ,y) ,y) , 
for  n:l  thru  N  do  (t  [n] : t [0] +n*h, 
y  [n]  :  y  [n-1]  +h*f  (t  [n-1]  ,y[n-l]))  , 
display (y  [N] ) 

)$ 

(°/0i52)  Eulerredpuntof inal(  100, 1)$ 

y  100  =  2,704813829421526 

(°/0i53)  Eulerredpuntof inal  (200 , 1)  $ 

y200  =  2,711517122929374 

(°/0i54)  Eulerredpuntof  inal  (400 , 1)  $ 

y400  =  2,714891744381287 

(°/0i55)  Eulerredpuntof  inal  (800 , 1)  $ 

y800  =  2,716584846682537 

En  tanto  que  en  el  siguiente  se  se  guardan  los  [t[n],  y[n]]  en  una  lista  y  se 
muestra  esta,  siempre  que  no  sea  excesivamente  larga. 

(70i56)  Eulertodalared(N,T)  :=block( 
numer:true,kill(y,t,f) , 
h:T/N,t [0] :0,y[0] : 1 ,def ine (f (t ,y) ,y) , 
for  n:l  thru  N  do  (t  [n] : t [0] +n*h, 
y  [n]  :y  [n-1]  +h*f  (t  [n-1]  ,y[n-l])), 
sol :makelist ( [t [ j ] , y [ j ] ] ,j,0,N) 

)$ 

Si  ahora  ponemos  por  ejemplo:  Eulertodalared(100,l);  Eulcrtodalared(200,l) 
Eulertodalared(400,l);  Eulertodalared(800,l);  vemos  que  hace  y  presenta  to¬ 
dos  los  resultados  para  los  tres  primeros  pero  no  así  para  el  último,  que  nos 
da  como  salida  el  mensaje  que  sigue: 

(°/oi60)  Eulertodalared(800, 1) ; 

«  ¡Expresión  excesivamente  larga  para  ser  mostrada!  »,  en  este  caso  la  hace 
pero  no  la  muestra  por  ser  excesivamente  larga,  como  se  pone  de  manifiesto 
en  el  programa  que  sigue,  en  el  que  le  pedimos  además  que  dibuje  la  gráfica 
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resultante,  comparándola  con  la  de  la  solución  exacta  y  mostrando  el  tiempo 
empleado,  mediante  la  instrucción: 

(70i61)  showtime :  true$ 

Cuya  salida  es  “Evaluation  took  0.0000  seconds  (0.0000  elapsed)”. 

En  tanto  que  para  las  gráficas  de  las  soluciones  aproximada  y  exacta 
podemos  utilizar  el  siguiente  programa: 

(°/0i62)  Eulergraf ico(N,T)  :=block(numer :true, 
kill(y,t,f) ,h:T/N,t [0] :0,y [0] : 1, 
define (f (t,y) ,y) , 
for  k:l  thru  N  do  (t [k] : t [0] +k*h, 
y  [k]  : y  [k-1]  +h*f  (t  [k-l]  ,y[k-l])), 
sol  :raakelist(  [t  [j]  ,y  [j]]  ,  j  ,0,N) , 
wxplot2d(  [  [discrete ,  sol]  ,  °/0e~t]  ,  [t ,  0 , 1]  ,  [y ,  1  ,°/0e]  , 

[style,  [points,2,2]  ,  [Unes, 1,1]]  ,  [legend,  "y (t) 
aproximada" , "y(t)  exacta"] , [xlabel,"tM] , 

[ylabel, "y"] ))$ 

Que  ejecutaremos  para  N=  100,  200,  400,...,  51200  dándonos  las  gráficas 
correspondientes  y  los  tiempos  de  cálculo  empleados: 

(°/0i63)  Eulergraf ico(10, 1)$ 


2.6 

2.4 
2.2 

2 

>■  1.8 
1.6 

1.4 
1.2 
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0  0.2  0.4  0.6  0.8  1 

t 

Figura  6.3:  Solución  exacta  versus  aproximada  con  N  =  10 


y(t)  aproximada  • 
y(t)  exacta 


«Evaluation  took  0.1000  seconds  (0.1000  elapsed)» 
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(°/0i64)  Eulergraf ico(100, 1)$ 


0  0.2  0.4  0.6  0.8  1 
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Figura  6.4:  Solución  exacta  versus  aproximada  con  N  =  100 

«Evaluation  took  0.1200  seconds  (0.1200  elapsed)» 

(°/0i65)  Eulergraf ico(200, 1) ; 
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Figura  6.5:  Solución  exacta  versus  aproximada  con  N  =  200 
«Evaluation  took  0.1300  seconds  (0.1300  elapsed)» 
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(°/0i66)  Eulergraf ico(400, 1)  ; 
Que  da  la  salida 


0  0.2  0.4  0.6  0.8  1 
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Figura  6.6:  Solución  exacta  versus  aproximada  con  N  =  400 

«Evaluation  took  0.1400  seconds  (0.1400  elapsed)» 

(70i67)  Eulergraf ico(800, 1)  ; 
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Figura  6.7:  Solución  exacta  versus  aproximada  con  N  =  800 
«Evaluation  took  0.1600  seconds  (0.1600  elapsed)» 
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(°/0i68)  Eulergraf ico (1600, 1)  ; 


0  0.2  0.4  0.6  0.8  1 


t 


Figura  6.8:  Solución  exacta  versus  aproximada  con  N  =  1600 


«Evaluation  took  0.2100  seconds  (0.2100  elapsed)» 
(°/0i69)  Eulergraf  ico  (3200, 1)  ; 
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t 


Figura  6.9:  Solución  exacta  versus  aproximada  con  N  =  3200 


«Evaluation  took  0.2800  seconds  (0.2800  elapsed)» 
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(°/0i70)  Eulergraf ico (6400, 1)  ; 
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Figura  6.10:  Solución  exacta  versus  aproximada  con  N  =  6400 


«Evaluation  took  0.4700  seconds  (0.4700  elapsed)» 
C/.Í71)  Eulergraf  ico  (12800, 1) ; 
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Figura  6.11:  Solución  exacta  versus  aproximada  con  N  =  12800 


«Evaluation  took  0.8200  seconds  (0.8200  elapsed)» 
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(°/0i72)  Eulergraf  ico(25600, 1) ; 
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t 


Figura  6.12:  Solución  exacta  versus  aproximada  con  N  =  25600 


«Evaluation  took  1.5800  seconds  (1.5800  elapsed)» 
C/.Í73)  Eulergraf  ico  (51200,1) ; 
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Figura  6.13:  Solución  exacta  versus  aproximada  con  N  =  51200 


«Evaluation  took  3.0000  seconds  (3.0000  elapsed)» 
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(°/0i74)  showtime :  f alse ; 

( %o74)  false 

Notas:  1)  Con  pequeños  cambios  los  programas  de  este  párrafo  y  los 
siguientes  se  adaptan  a  otros  PVI,  así  como  a  una  ecuación  de  orden  superior 
al  primero  o  a  un  sistema  de  ecuaciones  diferenciales.  Si  bien  en  general  no 
se  conoce  la  solución  exacta  y  no  podríamos  hacer  la  comparación  gráfica  ni 
numérica. 

2)  Se  observa  que,  en  aritmética  de  redondeo,  a  medida  que  N  crece  y  se 
va  duplicando  el  tiempo  empleado  aproximadamente  también  se  duplica. 


6.2.  Métodos  de  Taylor 

Los  métodos  de  Taylor  son  métodos  de  un  paso  de  orden  superior  al  pri¬ 
mero,  que  se  obtienen  truncando  el  desarrollo  de  Taylor  por  el  orden  pedido, 
a  modo  de  ejemplo  vamos  a  integrar  numéricamente  el  anterior  problema  de 
valor  inicial:  y'  =  y,y( 0)  =  1  en  el  intervalo  [0, 1],  con  un  método  de  Taylor 
de  orden  3,  tomando  h  =  0.1.  Luego,  comparamos  gráficamente  la  solución 
discreta  obtenida  con  la  exacta,  dada  en  este  caso  por  y  =  et  y  mostramos  el 
error  global  en  el  punto  t  =  1,0. 

(70i76)  kill(all)$  numer:true$ 

N :  10$  h :  1/N$  y[0]:l$  t[0]:0$ 
kill(f ,fl,f2,fi)$ 
define(f (t,y) ,y) ; 

define(fl(t,y) ,diff (f (t,y) ,t)+dif f (f (t ,y) ,y)*f (t,y)) ; 
def ine(f2(t ,y) , (diff  (f  1  (t  ,y) ,t)+diff (f 1 (t ,y) ,y)*f (t,y))) ; 
define(fi(t,y)  ,f  (t ,y)  +  (h/2)*f l(t,y)  +  0T2/6)*f2(t,y))  ; 
for  k:l  thru  N  do  ( 

t  [k]  :  t  [0]  +k*h,y  [k]  : y  [k-l]  +h*f  i (t  [k-1]  ,y[k-l]))$ 
print ("Solución  numérica:  " , sol :makelist ( [t [j] ,y [j] ] , j ,0 ,N) 
wxplot2d( [ [discrete , sol] ,%e~t] , [t , 0 , 1] , [style , [points ,2,2]  , 
[lines , 1 , 1] ] , [legend, "y (t)  aproximada" , "y(t)  exacta"], 
[xlabel , "t"] , [ylabel , "y"] ) ; 

print ("El  error  global  en  1.0  es  EG(1.0)  =  ",%e-y[N])$ 

(%o7)  f(t,y):=y 

(%o8)  fl(t,y):=y 

(%o9)  f2{t,y):=y 

(%ol0)  fi(t,y)  :=  1,051666666666667?/ 
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Solución  numérica:  [[0,1], [0.1, 1.105166666666667], [0.2, 1.221393361111111], 
[0.3, 1.349843229587963], [0.4, 1.491801742566297], [0.5, 1.648689559159519], 
[0.6,1.822076744464462], [0.7,2.013698482090641], [0.8,2.22547243912384], 
[0.9,2.459517957305031], [1.0,2.71817726248161]] 

( %tl3) 
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Figura  6.14:  Exacta  vs  aproximada  por  Taylor  de  orden  3  y  h  =  0.1 


( %ol3) 

El  error  global  en  1,0  es  EG(  1,0)  =  1,0456597743546681  •  10"4 

Observemos  que  con  N  =  10  se  obtiene  una  mejor  aproximación  que  el 
método  de  Euler  con  N  =  10000,  de  ahí  el  interés  de  tener  convergencia 
de  orden  elevado,  se  obtienen  buenas  aproximaciones  con  menos  cálculos  y 
por  tanto  con  menos  errores  de  redondeo  y  más  eficiencia  computacional. 
Además,  de  este  modo  podemos  obtener  métodos  del  orden  que  deseemos, 
con  el  único  inconveniente  de  tener  que  realizar  y  evaluar  las  derivadas  su¬ 
cesivas  de  la  función  que  define  la  ecuación  diferencial.  Si  el  orden  es  tres, 
el  error  global  es  el  producto  de  una  constante  C  (independiente  de  h )  por 
h 3,  se  puede  constatar  que  si  se  divide  h  por  10  el  error  global  se  divide 
aproximadamente  por  103.  Lo  vemos  a  continuación  aplicando  el  método  de 
Taylor  de  orden  3  anterior  con  N  =  100. 
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(%i 15)  kill(all)$  numer:true$ 

N :  100$  h :  1/N$  y  [0]  :  1$  t[0]:0$ 
kill(f ,fl,f2,fi)$ 
define (f (t,y) ,y) ; 

define(fl(t,y) ,diff (f (t,y) ,t)+dif f (f (t ,y) ,y)*f (t,y)) ; 
def ine(f2(t ,y)  ,  (diff  (f  1  (t  ,y)  ,t)+diff  (f  1  (t ,y)  ,y) *f (t ,y) ) )  ; 
define(fi(t,y) ,f (t,y)+(h/2)*fl(t,y)+(h~2/6)*f2(t,y)) ; 
for  k:l  thru  N  do  ( 

t  [k]  :  t  [0]  +k*h,y  [k]  : y  [k-l]  +h*f  i (t  [k-1]  ,y[k-l]))$ 
print ("Solución  numérica:  " , sol  :makelist  ( [t  [j]  ,y  [j]  ]  ,  j  ,0 ,N) ) $ 
wxplot2d( [ [discrete , sol] ,  °/0e~t] ,  [t , 0, 1] ,  [style ,  [points ,2,2] , 
[lines , 1 , 1] ] , [legend, "y (t)  aproximada" , "y (t)  exacta"], 

[xlabel , "t "] , [ylabel , "y"] ) ; 

print  ("El  error  global  en  1.0  es  EG(1.0)  =  "  ,°/0e-y[N]  )$ 

(  %o7)  f  (f,  y)  :=  y 

(%o8)  fl(t,y):=y 

(%o9)  f2(t,y):=y 

(%ol0)  fi  (t,  y)  :=  1,005016666666667?/ 

Solución  numérica:  la  omitimos  para  abreviar. 

( %tl3) 
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Figura  6.15:  Exacta  vs  aproximada  por  Taylor  de  orden  3  y  h  =  0.01 
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(%ol3)  El  error  global  en  1,0  es  £G(1,0)  =  1,1235941110854242  •  10”7 

Observación.  Se  observa  que  el  error  global  funciona  como  era  de  espe¬ 
rar,  pues  al  dividir  h  por  10  el  error  global  se  ha  dividido  aproximadamente 
por  103,  concretamente  por  930,638 

Si  se  desea  se  puede  escribir  este  programa  en  un  block  y  aplicarlo  a  ecua¬ 
ciones  diferentes,  con  ligeros  cambios  sobre  el  anterior.  Veamos  un  ejemplo 
para  el  método  de  Taylor  de  orden  3  para  nuestro  problema: 

(7oil6)  Taylor3(N,T)  :=block(kill(y,f  ,f  1  ,f2,f  i,t)  ,N,T, 
numer :true,h:  1/N,  y[0]:l,  t[0]:0, 
define(f (t,y) ,y) , 

define(fl(t,y) ,diff (f (t,y) ,t)+dif f (f (t ,y) ,y)*f (t,y)) , 
def ine(f2(t ,y) , (diff  (f  1  (t  ,y) ,t)+diff (f 1 (t ,y) ,y)*f (t,y))) , 
define(fi(t,y) ,f (t ,y)+(h/2)*f l(t,y)+(h~2/6)*f2(t,y)) , 
for  k:l  thru  N  do  ( 

t  [k]  : t  [0]  +k*h,y [k]  :y[k-l]+h*fi(t  [k-l]  ,y[k-l])) , 
print ("Solución  numérica:  " , sol :makelist ( [t [j] ,y [j] ] , j ,0 ,N) ) , 
wxplot2d( [ [discrete , sol] ,%e~t] , [t ,  0 , 1] , [style , [points ,2,2]  , 
[lines , 1 , 1] ] , [legend, "y (t)  aproximada" , "y(t)  exacta"], 

[xlabel , "t"] , [ylabel , "y"] ) , 

print ("El  error  global  en  1.0  es  EG(1.0)  =  " ,%e-y [N] ) )$ 

Si  ahora  tecleamos  “Taylor3(10,l);”  o  bien  “Taylor3(100,l);”  obtenemos 
las  salidas  anteriores. 

Ejercicio.  Escribir  un  programa,  mediante  un  block,  para  integrar  numéri¬ 
camente  el  PVI  anterior  con  un  método  de  Taylor  de  orden  4. 


6.3.  Métodos  Runge-Kutta  para  EDOs 

6.3.1.  Métodos  RK(3)  explícitos 

Para  los  métodos  Runge-Kutta  (abreviadamente  RK)  explícitos,  que  son 
los  únicos  que  abordaremos  de  momento,  el  programa  constará,  en  general, 
de  varios  bloques,  en  el  primero  de  ellos  hemos  de  definir  el  PVI  a  integrar,  es 
decir  los  valores  iniciales,  la  longitud  del  intervalo  de  integración  y  la  ecua¬ 
ción  diferencial,  en  el  segundo  hemos  de  introducir  el  tablero  de  Butcher 
correspondiente  al  método  Runge-Kutta  explícito  de  tres  etapas  que  vamos 
a  utilizar,  luego  debemos  programar  el  esquema  del  método  y  finalmente  la 
salida  deseada,  que  puede  ser  el  valor  aproximado  de  la  solución  en  el  punto 
final  del  intervalo  o  los  valores  aproximados  en  toda  la  red  de  puntos  consi- 
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derada  y/o  su  representación  gráfica.  También  podemos  determinar  antes  de 
comenzar  el  orden  del  método  mediante  las  ecuaciones  de  orden. 

En  cada  paso  el  esquema  es  siempre  el  mismo  para  cualquier  método 
Runge-  Kutta:  se  calculan  los  valores  auxiliares  ki  (en  este  caso  kl,  k2  y  k3) 
y  a  partir  de  ellos  se  actualiza  la  solución  yn,  también  hay  que  actualizar 
el  valor  temporal  tn  =  ín_i  +  h.  Para  evitar  que  la  memoria  se  desborde  se 
suelen  sobrescribir  tanto  tn  como  yn,  sobre  todo  si  sólo  deseamos  presentar 
el  valor  en  el  punto  final  del  intervalo,  aunque  si  el  número  N  no  es  muy 
grande  se  pueden  guardar  todos  y  hacer  su  gráfica  como  antes.  Recordemos 
que  cada  ki(i  =  1,  2,  3)  es  de  la  forma: 

k\i\  :  f(t  +  c[i]  ■  h, y  +  h  ■  sum(a[i,j]  ■  k[j},j,  l,i-  1)) 

En  tanto  que 

y[n\  :  y[n  —  1]  +  h  ■  sum(b[i\  ■  k[i\,  i,  1,  3) 

Por  otro  lado,  recordemos  que  las  ecuaciones  de  orden  para  los  métodos 
RK  explícitos  de  tres  etapas,  supuesto  que  se  cumplen  las  condiciones  de 
simplificación,  son: 

1.  6[1]  +  b[ 2]  +  6[3]  =  1 

2.  6 [2]  •  c[2]  +  6 [3]  •  c[3]  =  1/2 

3.  b[ 2]  •  c[2]2  +  6[3]  •  c[3]2  =  1/3  (3.1) 

y  6 [3]  •  a[3,  2]  •  c[2]  =  1/6  (3.2) 

De  manera  que  si  se  verifica  la  1)  pero  no  la  2)  el  método  es  sólo  de  primer 
orden,  si  se  verifica  la  1)  y  la  2)  pero  no  se  verifica  alguna  de  las  (3.1)  o  (3.2) 
es  de  segundo  orden  y  si  se  verifican  todas  es  de  tercer  orden  (el  máximo 
alcanzable  por  un  método  Runge-Kutta  explícito  de  tres  etapas).  Para  dar 
un  método  RK(3)  explícito  hay  que  dar  los  coeficientes  b[i\(i  =  1,2,3),  los 
c[2],  c[3],  así  como  los  a[ 2, 1],  a[3, 1]  y  a[3,  2],  Además,  podemos  comprobar  su 
orden  mediante  las  ecuaciones  anteriores.  Vamos  ahora  a  integrar  nuevamente 
el  problema  text  anterior  con  el  método  RK  explícito  de  tres  etapas  para  el 
que 


b[  1]  =  1/6,  b[ 2]  =  4/6,  6[3]  =  1/6,  c[2]  =  1/2,  c[3]  =  1 
a[2, 1]  =  1/2,  a[3, 1]  =  — 1,  a[3,2]=2 


antes  de  nada,  puesto  que: 
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C/.Í19)  numer :  f  alse$  b  [1]  :  1/6$  b[2]:4/6$  b  [3]  :  1/6$  c[2]:l/2$  c  [3]  :  1$ 
a [2,1]:  1/2$  a[3,l]:-l$  a[3,2]:2$ 
print  ( "b  [1]  +b  [2]  +b  [3]  =  "  ,b[l]+b[2]+b  [3]  )$ 
print  ( "b  [2]  *c  [2]  +b  [3]  *c  [3]  =  "  ,b  [2]  *c  [2]  +b  [3]  *c  [3]  )$ 
print ( "b [2] *c [2] ~2+b  [3] *c  [3] ~2  =  " ,b [2] *c [2] ~2+b [3] *c  [3] ~2)$ 
print  ("b  [3]  *a[3, 2]  *c  [2]  =  ",  b  [3]  *a[3, 2]  *c  [2]  )$ 

b[  1]  +  b[  2]  +  6[3]  =  1 
b{ 2]  *  c[2]  +  6[3]  *  c[3]  =  \ 
b[ 2]  *  c[2]2  +  6[3]  *  c[3] 2  =  | 

6[3]  *a[3,2]  *c[2]  =  ± 

Es  decir  se  cumplen  las  ecuaciones  1),  2)  y  3)  anteriores,  por  tanto  el 
método  en  cuestión,  denominado  método  de  Kutta,  es  de  tercer  orden.  Apli- 
quémoslo,  en  primer  lugar,  al  problema  anterior  con  N  =  10,  h  =  1/N  =  0,1 

(°/0i32)  kill  (all)  Snuraer  :true$ 

N : 10$  h:l/N$  y [0] : 1$  t [0] : 0$ 
kill(f ,kl,k2,k3)$ 
define (f (t,y) ,y) ; 
def ine(kl (t ,y) ,f (t,y)) ; 

def ine(k2(t ,y) , f (t+0 . 5*h,y+0 . 5*h*kl (t ,y) ) ) ; 
def  ine  (k3  (t , y)  ,  f  (t+h ,  y+h*  (-kl  (t ,  y)  +2*k2  (t , y) ) ) )  ; 
for  k:l  thru  N  do  ( 

t  [k]  :t[0]+k*h,y[k]  :y  [k-l]  +  (h/6)*(kl(t  [k-1]  ,y[k-l])  + 

+4*k2(t [k-1]  ,  y  [k-1] )  +k3  (t  [k-1]  ,y[k-l])))$ 

print ("Solución  numérica:  " , sol :makelist ( [t [j] ,y [j] ] , j ,0 ,N) ) $ 
wxplot2d(  [  [discrete ,  sol]  ,  °/0e~t]  ,  [t ,  0 , 1]  ,  [style ,  [points  ,2,2]  , 
[lines , 1 , 1] ] , [legend, "y (t)  aproximada" , "y (t)  exacta"], 

[xlabel , "t "] , [ylabel , "y"] ) ; 

print ("El  error  global  en  1.0  es  EG(1.0)  =  ",%e-y[N])$ 

(  %o7)  f  (í,  y)  y 
(%o8)  kl(t,y):=y 
(%o9)  k2  (t,  y)  l,05y 

(  %ol0)  k3(t,y)  l,lly 

Solución  numérica:  [[0,1], [0.1, 1.105166666666667], [0.2, 1.221393361111111], 

[0.3, 1.349843229587963], [0.4, 1.491801742566297], [0.5, 1.648689559159519], 
[0.6,1.822076744464462], [0.7,2.013698482090641], [0.8,2.22547243912384], 

[0.9, 2.459517957305031], [1.0, 2.71817726248161]] 
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Figura  6.16:  Exacta  vs  aproximada  por  RK(3)  dado  con  h  =  0.1 

(%ol3)  El  error  global  en  1,0  es  EG (1,0)  =  1,0456597743546681  •  10~4 

Observación.  Se  observa  que  da  un  error  global  similar  al  método  de 
Taylor  del  mismo  orden,  en  este  caso  particular  el  mismo,  también  ocurre 
esto  cuando  tomamos  N  =  100,  es  decir  dividimos  h  por  10.  Asimismo,  el 
error  global  funciona  como  era  de  esperar,  se  propone  escribir  este  programa 
en  un  block  y  aplicarlo  a  ecuaciones  diferentes,  en  las  que  los  errores  globales 
se  comportan  de  un  modo  similar  pero  no  tienen  porque  ser  idénticos  en  uno 
u  otro  método.  Un  buen  ejercicio  puede  ser  aplicarlo  a  un  PVI  de  segundo  or¬ 
den,  escribiéndolo  previamente  como  un  sistema  de  dos  ecuaciones  de  primer 
orden. 


y(t)  aproximada 
y(t)  exacta 


* 

V 


6.3.2.  Método  RK (4)  “clásico”  y  aplicaciones 

Los  pasos  a  seguir  son  los  descritos  al  comienzo  del  párrafo  anterior. 
Dividiendo  el  programa  en  varios  bloques,  con  el  fin  de  que  sea  válido  para 
otros  casos  con  las  modificaciones  oportunas  en  el  bloque  que  corresponda. 
Así,  en  el  primer  bloque,  hemos  de  definir  el  PVI  a  integrar,  es  decir  los  valores 
iniciales,  la  longitud  del  intervalo  de  integración  y  la  ecuación  diferencial,  en  el 
segundo  hemos  de  introducir  el  tablero  de  Butcher  correspondiente  al  método 
Runge-Kutta  explícito  de  cuatro  etapas  y  orden  cuatro  “clasico”  que  vamos 
a  utilizar,  luego  debemos  programar  el  esquema  del  método  y  finalmente 
la  salida  deseada,  que  puede  ser  el  valor  aproximado  de  la  solución  en  el 
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punto  final  del  intervalo  o  los  valores  aproximados  en  toda  la  red  de  puntos 
considerada  y/o  su  representación  gráfica. 

Así  pues,  comenzamos  introduciendo  los  valores  que  definen  el  problema 
que  vamos  a  integrar.  Es  necesario  especificar  la  función  f(t,y )  que  define 
la  ecuación  o  sistema  diferencial  ordinario  y'  =  f(t,y),  así  como  el  punto 
inicial  (to,yo).  También  incluiremos  el  tiempo  final  TiempoFinal  =  t0  +  T, 
de  manera  que  T  es  la  amplitud  del  intervalo  de  integración.  Si  queremos 
cambiar  de  problema  tendremos  que  modificar  estos  valores.  En  primer  lugar 
aplicaremos  al  problema  anterior  el  RK  “clasico”  de  4  etapas  y  orden  4,  cuyo 
tablero  de  Butcher  está  dado  por 


0 

1/2 

1/2 

1/2 

0  1/2 

1 

0  0  1 

1/6  1/3  1/3  1/6 

En  cada  paso  el  esquema  es  el  mismo  para  cualquier  método  Runge-Kutta: 
se  calculan  los  valores  auxiliares  ki  ya  partir  de  ellos  se  actualiza  la  solución 
yn.  También  hay  que  actualizar  el  valor  temporal  tn  =  ¿n-i  +  h.  Si  es  preciso, 
para  evitar  que  la  memoria  se  desborde  se  pueden  sobreescribir  tanto  tn 
como  yn,  no  lo  hacemos  ahora  por  si  queremos  representarla  gráficamente.  Si 
lo  aplicamos  al  PVI  anterior  en  [0,1], tomando  N  subintervalos  o  sea  h  =  1/N 
y  damos  el  EG  en  1.0  el  programa  se  puede  escribir  mediante  el  block  que 
sigue: 


(%i 16)  RK4_0(N,T):=  block (numer:true, 

kill(t,y,f ,kl ,k2,k3,k4) ,h:T/N,t [0] :0.0,y[0] : 1 .0, 
define (f (t,y) ,y) , 
define(kl(t,y) ,f (t,y)) , 

def ine(k2(t ,y) , f (t+0 . 5*h,y+0 . 5*h*kl (t ,y) ) ) , 
def ine (k3 (t , y) , f (t+0 . 5*h , y+0 . 5*h*k2 (t , y) ) ) , 
def ine (k4 (t , y) , f (t+h , y+h*k3 (t , y) ) ) , 
for  n:l  thru  N  do  ( 

t[n]  :  t  [0]  +n*h,y  [n]  :y[n-l]  +  (h/6)*(kl(t  [n-l]  ,y[n-l])  + 

2*(k2(t  [n-l]  ,y  [n-l]  )+k3(t  [n-l]  ,y[n-l]  ))+k4(t  [n-l]  ,y[n-l] ))) , 
sol:makelist( [t  [j] , y  [ j ] ] , j ,0,N) , 

wxplot2d( [ [discrete , sol] ,%e“t] , [t , 0, 1] , [style , [points ,2,2]  , 
[lines , 1 , 1] ] , [legend, "y (t)  aproximada" , "y(t)  exacta"], 
[xlabel , "t "] , [ylabel , "y"] ) ,  display (y [N] ) , 
print("El  error  global  en  1.0  es  EG(1.0)  =  ",%e-y[N]) 

)$ 
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Ahora  lo  ejecutamos  con  N  =  10  y  N  =  100,  o  sea  con  h  =  0,1  y  h  —  0,01 
y  vemos  como  el  error  global  se  comporta  como  era  de  esperar,  es  decir  se 
divide  aproximadamente  por  104. 

C/.Í17)  RK4_0(10, 1)$ 

( %tl7) 

2.8 
2.6 

2.4 
2.2 

2 

=*  1.8 
1.6 

1.4 
1.2 

1 

0  0.2  0.4  0.6  0.8  1 


y(t)  aproximada 
y(t)  exacta 


t 

Figura  6.17:  Exacta  vs  aproximada  por  RK(4)  “clásico”  con  h  =  0.1 


2/io  =  2,718279744135166  es  el  valor  aproximado  para  y(l,0)  dado  por  el 
RK(4)  “clásico”  con  10  pasos  de  tamaño  0,1.  En  tanto  que  el  error  global  en 
1.0  dado  por  EG (1,0)  =  2/(1, 0) -yw  es  £G(1,0)  =  2,0843238792700447- 10"6, 
que  muestra  la  bondad  del  método,  pues  con  pocos  cálculos  se  ha  obtenido 
una  buena  aproximación.  Seguidamente  ejecutamos  el  mismo  programa  con 
paso  h  =  0,01. 


C/.Í18)  EsquemaORK4(  100,1)$ 
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( %tl8) 
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Figura  6.18:  Exacta  vs  aproximada  por  RK(4)  “clásico”  con  h  =  0.01 


2/ioo  =  2,718281828234404  es  el  valor  aproximado  para  2/(1, 0)  dado  por  el 
RK(4)  “clásico”  con  100  pasos  de  tamaño  0,01.  Siendo  ahora  el  error  global 
en  1.0  es  £G(1,0)  =  2,2464119453502462  •  10“10. 

6.3.3.  El  paquete  diffeq  y  el  comando  rk 

Seguidamente  cargaremos  el  paquete  “diffeq”,  que  nos  permitirá  usar 
el  comando  “rk”  para  integrar  PVI  para  edos,  ya  sea  una  ecuación  o  un 
sistema  de  ecuaciones  de  primer  orden.  Veamos  información  sobre  el  mismo 
a  continuación  mediante  el  comando  “?  rk”  y  su  aplicación  al  problema  que 
nos  ocupa,  este  utiliza  el  método  RK  clásico  de  cuatro  etapas  y  orden  cuatro. 

(7>il9)  load(diffeq)  ; 

(%ol9)  C  :  /  PROGRA  2/ MAXIM  A  1,0  —  2 /share/inaxima/ 5 ,28,0  —  2/ 
share / numeric / di  f  f eq.mac 

(7.120)  ?  rk; 

-  Función:  rk  (EDO,  var,  inicial,  dominio) 
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-  Función:  rk  ([ED01,...,ED0m],  [vl,...,vm],  [inicl,...,inicm],  dominio) 

La  primera  forma  se  usa  para  resolver  numéricamente  una  ecuación  diferen¬ 
cial  ordinaria  de  primer  orden  (EDO),  y  la  segunda  forma  resuelve  numéri¬ 
camente  un  sistema  de  <  m  >  de  esas  ecuaciones,  usando  el  método  de 
Runge-Kutta  de  cuarto  orden.  <  var  >  representa  la  variable  dependiente. 
EDO  debe  ser  una  expresión  que  dependa  únicamente  de  las  variables  inde¬ 
pendiente  y  dependiente,  y  define  la  derivada  de  la  variable  dependiente  en 
función  de  la  variable  independiente. 

La  variable  independiente  se  representa  con  <  dominio  >,  que  debe  ser  una 
lista  con  cuatro  elementos,  como  por  ejemplo:  [¿,0,10,0,1],  el  primer  ele¬ 
mento  de  la  lista  identifica  la  variable  independiente,  el  segundo 
y  tercer  elementos  son  los  valores  inicial  y  final  para  esa  variable, 
y  el  último  elemento  da  el  valor  de  los  incrementos  que  deberán  ser 
usados  dentro  de  ese  intervalo. 

Si  se  van  a  resolver  <  m  >  ecuaciones,  deberá  haber  <  m  >  variables  de¬ 
pendientes  vi  ,  v2  ,  ...,  vm  .  Los  valores  iniciales  para  esas  variables  serán 
<  inicl  >,  <  inic2  >,  ...,  <  inicm  >.  Continuará  existiendo  apenas  una 
variable  independiente  definida  por  la  lista  <  domain  >,  como  en  el  caso 
anterior.  <  EDO  1  >,...,<  EDOm  >  son  las  expresiones  que  definen  las 
derivadas  de  cada  una  de  las  variables  dependientes  en  función  de  la  variable 
independiente.  Las  únicas  variables  que  pueden  aparecer  en  cada  una  de  esas 
expresiones  son  la  variable  independiente  y  cualquiera  de  las  variables  depen¬ 
dientes.  Es  importante  que  las  derivadas  <  EDO  1  >,...,<  EDOm  >  sean 
colocadas  en  la  lista  en  el  mismo  orden  en  que  fueron  agrupadas  las  variables 
dependientes;  por  ejemplo,  el  tercer  elemento  de  la  lista  será  interpretado 
como  la  derivada  de  la  tercera  variable  dependiente. 

El  programa  intenta  integrar  las  ecuaciones  desde  el  valor  inicial  de  la  varia¬ 
ble  independiente,  hasta  el  valor  final,  usando  incrementos  fijos.  Si  en  algún 
paso  una  de  las  variables  dependientes  toma  un  valor  absoluto  muy  grande, 
la  integración  será  suspendida  en  ese  punto.  El  resultado  será  una  lista  con 
un  número  de  elementos  igual  al  número  de  iteraciones  realizadas.  Cada  ele¬ 
mento  en  la  lista  de  resultados  es  también  una  lista  con  <  m  >  +1  elementos: 
el  valor  de  la  variable  independiente,  seguido  de  los  valores  de  las  variables 
dependientes  correspondientes  a  ese  punto. 

There  are  also  some  inexact  matches  for  ‘rk’.  Try  ‘??  rk’  to  see  them. 

( %o20)  true 

Por  tanto,  lo  primero  de  todo  es  cargar  este  paquete  mediante  “load(diffeq)” 
y  utilizar  el  comando  de  Maxima  “rk(f,  y,  yO,  [t,  tO,  ti,  h])”  para  ecua¬ 
ciones  escalares  o  sistemas,  veamos  su  aplicación  al  problema  text  que  nos 
ocupa  con  h  =  0,1  y  h  —  0,01. 


172 


Capítulo  6.  Métodos  numéricos  para  PVI  de  EDOs 


C/,i2l)  kill(all)$ 

load(diff eq)$ 
kill(f )$ 
f (t,y) :=y; 

print ("Solución  numérica:  ")$ 
numsol : rk(f (t ,y) ,y , 1 , [t ,  0 , 1 ,0 . 1] )  ; 

print ("Representación  gráfica  de  la  solución  numérica:  ")$ 
wxplot2d(  [discrete , numsol] , [style,points] )$ 

(%o3)  f  (t,y):=y 
Solución  numérica: 

( %o5) 

[[0, 1],  [0,1, 1,105170833333333],  [0,2, 1,221402570850695], 

[0,3, 1,349858497062538],  [0,4, 1,491824240080686],  [0,5, 1,648720638596838], 
[0,6, 1,822117962091933],  [0,7,  2,013751626596777],  [0,8,  2,225539563292315], 
[0,9,  2,459601413780071],  [1,0,  2,718279744135166]] 

Representación  gráfica  de  la  solución  numérica: 

( %t7) 

2.8 

> 

2.6 

2.4 

2.2 

2 

=*  1.8 
1.6 

1.4 

1.2 

1 

0  0.2  0.4  0.6  0.8  1 


x 

Figura  6.19:  Solución  aproximada  por  RK(4)  “clásico”  con  h  =  0.1 


En  tanto  que  el  error  global  en  1,0  resulta  ser 
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(°/>i8)  print("El  error  global  en  1.0  es  EG(l.O)  =  ", 
f  loat  (°/0e- 2 .718279744135166) )  $ 

El  error  global  en  1,0  es  EG(1,0)  =  2,084323879270044710  6,  el  mismo 
que  antes  obtuvimos,  pues  el  comando  “rk”  lleva  implementado  el  mismo 
método  de  integración  numérica.  Repitiendo  ahora  con  paso  h  =  0,01,  ten¬ 
dremos: 

(7.19)  kill(f)$ 

f  (t,y) :=  y; 

solnum: rk(f (t ,y) ,y , 1 . 0 ,  [t , 0 . 0, 1 . 0 , 0 . 01] ) ; 
wxplot2d( [discrete , solnum] , [style,points] )$ 

(%ol0)  f  (t,y)  :=  y 

( %oll)  Omitimos  la  salida  numérica  para  abreviar. 

( %tl2) 


Figura  6.20:  Solución  aproximada  por  RK(4)  “clásico”  con  h  =  0.01 


Y  para  el  error  global  se  tiene 
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(°/0il3)  print("El  error  global  en  1.0  es  EG(l.O)  =  ", 
f  loat  (°/0e- 2 .718281828234403) )  $ 

El  error  global  en  1,0  es  £G(1,0)  =  2,2464208271344432  •  10~10,  que 
coincide  con  el  obtenido  antes  por  la  razón  señalada. 


6.3.4.  Aplicación  del  RK(4)  “clásico”  al  problema  de 
dos  cuerpos  plano 

En  este  último  apartado,  en  vez  de  trabajar  con  el  problema  que  venimos 
estudiando,  vamos  a  considerar  el  problema  plano  de  dos  cuerpos  puntuales, 
que  se  mueven  atraídos  según  la  ley  de  la  gravitación  universal  de  Newton. 
En  unidades  apropiadas  y  con  la  ayuda  del  editor  de  Maxirna,  las  ecuaciones 
del  movimiento  adoptan  la  forma: 


C/.Í14) 


numer:false$  kill(all)$ 


’diff (yl,t) 
’diff (y2,t) 
’diff (y3,t) 
’diff (y4,t) 


y3; 

y4; 

-yl/ (yl~2+y2~2) ~ (3/2) ; 
-y2/ (yl~2+y2~2) ~ (3/2) ; 


( %o1)  iiv1  =  y?j 

(%o2)  ^2  =  2,4 

(%o3)  ± 2/3  = 


Siendo  (yl,y2)  las  coordenadas  de  uno  de  los  cuerpos  (satélite)  en  un 
sistema  con  origen  en  el  otro  cuerpo  central  (planeta),  en  tanto  que  (j/3, 2/4) 
representa  el  vector  velocidad  del  cuerpo  satélite. 

Como  recordaréis  por  la  primera  ley  de  Kepler:  ”los  planetas  describen 
órbitas  elípticas  alrededor  del  sol,  que  ocupa  uno  de  los  focos  de  esa  elipse” . 

En  general,  las  soluciones  del  problema  de  dos  cuerpos  son  cónicas  (pue¬ 
den  ser  elipses,  parábolas  o  hipérbolas),  ahora  bien  si  se  toman  las  condiciones 

iniciales  siguientes:  2/1(0)  =  1  —  e,  2/2(0)  =  1/3(0)  =  0,  e  1/4(0)  =  yj \ ^  (con 

0  <  e  <  1),  se  puede  probar  que  la  solución  es  una  elipse  de  excentricidad 
e,  como  es  el  caso  en  el  sistema  planetario  solar.  Normalmente,  no  aparecen 
parámetros  en  las  condiciones  iniciales,  pero  esto  permite  abordar  un  con¬ 
junto  de  problemas  con  diferencias  cualitativas  significativas.  En  particular, 
si  e  =  0  el  satélite  describe  una  órbita  circular,  entorno  al  cuerpo  central, 


(%o4)  |i/4 


(s/2  2+yi2)3'2 
vi 

(y2*+yll)3/2 
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con  periodo  2n,  así  pues  si  suponemos  que  en  el  instante  inicial  el  satélite 
se  encuentra  en  el  punto  (1,0,  0,0)  con  velocidad  v  =  (0,0, 1,0).  El  esquema 
para  integrar  numéricamente  este  problema  con  el  comando  “rk”  es  similar  al 
de  antes,  pero  ahora  es  una  función  vectorial  de  cuatro  componentes,  puesto 
que  la  solución  es  periódica  con  periodo  27 r,  si  integramos  de  0  a  27t,  tras 
una  vuelta  completa,  debemos  tener  valores  próximos  a  los  iniciales,  veamos 
esto  en  el  programa  que  sigue,  en  el  que  realizamos  20  pasos  de  amplitud 
h  —  =  0,31415926535898  y  mostramos  sólo  el  último  valor  que 

calcula. 

(°/0i8)  /*  Con  20  pasos  */ 

kill(all)$  load(diffeq) ;numer:true$ 
y: [yl,y2,y3,y4] ; 

f (t,y) := [y3,y4,-yl/ (yl~2+y2~2) ~ (3/2) , 

-y2/ (yl~2+y2~2) ~ (3/2) ] ; 
h=°/„pi/10; 

discretesolutionl : rk(f (t ,y) ,y ,  [1.0, 0.0, 0.0, 1.0] , 
[t,0,2*0/„pi,°/„pi/10]  )$  last (discretesolutionl)  ; 


(  %ol)  C  :  / PROGRA  2/MAXIMA  1,0  — 2/ share/maxima/ 5, 28, 0  —  2 
/  share/ numeric / di  f  f  eq.mac 

(%o3)  [s/l,  2/2, 2/3, 2/4] 

(%o4)  f  (t,y)  :=  [j/3,2/4, - — - y, - — - y] 

{yl2  +  y22Y  (yl2+y22Y 

(  %o5)  h  =  0,31415926535898 

(  %o7)  [6,283185307179586,  0,99944519714206,  0,0038657399331735, 

-  0,0038695061807764, 1,000266720696481] 


Observación.-  La  salida  del  programa  anterior  muestra,  solamente,  el 
último  elemento  calculado  de  la  solución  numérica  (que  hemos  denominado 
discretesolutionl)  proporcionada  por  el  comando  “rk”,  mediante  la  instruc¬ 
ción  last  (discretesolutionl),  que  nos  da  [6.283185307179586,0.99944519714206, 
0.0038657399331735,-0.0038695061807764,1.000266720696481],  cuyos  cuatro 
últimos  elementos  son  los  valores  aproximados  de  yl,y2,y8,yA  para  t  = 
20 h  =  6,283185307179586  <  27t,  que  lo  hace  puesto  que  en  los  redondeos 
resulta  20 h  <  2i r  (si  al  ir  añadiendo  h,  debido  a  los  redondeos,  se  pasará  del 
valor  final  de  la  variable  contemplada  como  tal  en  dominio  no  calcularía  di¬ 
chos  valores  en  tal  caso  y  tendríamos  que  hacer  un  ajuste  para  obtener  esta 
aproximación  como  veremos  en  el  ejemplo  que  sigue).  Ahora,  el  error  global 
de  esta  aproximación  en  2n  será: 
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(°/0i8)  print("El  error  global  con  20  pasos  en  2*°/„pi  es 

EG("  ,  2*°/„pi,  ")  =  ",  [1.0, 0.0, 0.0, 1.0]-  [0.99944519714206, 

0 . 0038657399331735 , -0 . 0038695061807764 , 1 . 000266720696481] ) $ 

El  error  global  con  20  pasos  en  t  —  27r  es  EG(6, 283185307179586)  = 
[5,548028579399622  •  10"4,  -0,0038657399331735,  0,0038695061807764, 

-  2,6672069648103758  •  10"4]. 

Repitamos  ahora  la  integración  con  paso  h  =  ^  =  Yq  =  0,031415926535898, 
resultará: 


(°/0i9)  /*Con  200  pasos  */  kill(all)$  load(diffeq)  ; 
numer:true$  kill(f)$ 
y: [yl,y2,y3,y4] ; 

f (t ,y) : = [y3 ,y4 , -yl/ (yl~2+y2~2) ~ (3/2) , -y2/ (yl~2+y2~2) ~ (3/2) ] 
h=°/„pi/100; 

discretesolution2 :rk(f (t ,y) ,y , [1.0, 0.0, 0.0, 1.0] , 

[t , 0 , 2*%pi , %pi/ 100] ) $  last (discretesolution2) ; 


(  %ol)  C  :  / PROGRA  2/MAXIMA  1,0  —  2 /share /maxima/ 
5,28,0  —  2  /  share /numeric/ di  f  feq.mac 
(%o4)  [yl,  y2, 2/3,  y4] 


(%o5)  f  (t,  y)  :=  [2/3, 2/4, 


-y  1 


-1/2 


{yl2  +  y22Y  {yl2  +  y22Y2 
(  %o6)  h  =  0,031415926535898 

( %o8)  [6.251769380643689,0.9995065602185,-0.031410593663266, 

0.03141059439279,0.99950656822774] 


Observación.  Podemos  apreciar  que  la  última  salida  de  (  %o8)  es  igual  a 
[6.251769380643689,0.9995065602185,-0.031410593663266,0.03141059439279, 
0.99950656822774]  que  da  un  error  similar  o  peor  que  la  anterior,  a  pesar  de 
haber  dividido  el  paso  por  10.  De  hecho,  el  tiempo  final  para  el  que  calcula 
la  aproximación  es  6.251769380643689  distinto  de  27 r,  y  esto  es  debido  a  que 
por  los  errores  de  redondeo  ahora  se  tiene  que  6,251769380643689  +  h  >  2i r, 
por  lo  que  no  calcula  el  valor  aproximado  de  la  solución  para  t  =  2n.  Como 
podemos  comprobar  a  continuación: 


(°/0i9)  is  (6 . 251769380643689+0 . 031415926535898>2*%pi)  ; 
( %o9)  true 
(7.110)  2*%pi; 
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(%ol0)  6,283185307179586 

Es  pues  necesario  un  ajuste  del  último  paso,  para  obtener  una  mejor 
aproximación  de  la  solución  en  27t,  haciendo  un  sólo  paso  de  amplitud  2tt  — 
6,251769380643689,  partiendo  del  valor  al  que  hemos  llegado,  lo  que  haríamos 
en  la  forma  siguiente: 


(°/0ill)  kill(all)$  load(diff eq) ; 
numer:true$  kill(f)$ 
y: [yl,y2,y3,y4] ; 

f  (t,y)  :  =  [y3,y4,-yl/(yl~2+y2~2r(3/2),-y2/(yl~2+y2~2r(3/2)]  ; 
ajustesolution: rk(f (t ,y) ,y , [0 . 9995065602185 , -0 . 031410593663266 , 
0 . 03141059439279 , 0 . 99950656822774] , 

[t , 6 . 251769380643689 , 2*%pi , 2*%pi-6 . 251769380643689] ) ; 


(  %ol)  C:/PROGRA  2/MAXIMA  1.0-2/share/maxima/ 
5.28.0-2  /  share/numeric/diffeq.mac 
(%o4)  [yl ,  2/2, 2/3, 


(%o5)  f  (í,  y)  :=  [j/3,  j/4, 


-y  i 


-2/2 


(yl2  +  |/22) 5  (yl2  +  y22Y 
(  %o6)  [[6,251769380643689,  0,9995065602185,  -0,031410593663266, 

0,03141059439279, 0,99950656822774],  [6,283185307179586,  0,99999999465787, 
1,6532531159352271  •  10~7,  -1,6532530891510966  •  10“7, 1,000000002671051]] 


Obteniendo  ahora  el  error  global  siguiente 


(°/0i7)  print("El  error  global  en  2*°/0pi  es  EG("  ,2*%pi, ")  =  " 
f loat ([1.0, 0.0,0. 0,1.0]-  [0. 99999999465787 , 

1 . 6532531 15935227 1*10~ -7,-1 . 653253089 15 10966* 10 ~ -7 , 
1.000000002671051]))$ 


El  error  global  en  2i r  es  EG{ 2tt)  =  [5,3421299606171146  •  10  9, 
-1,6532531159352271-10-7,1,6532530891510966-10-7, -2, 6710509359872958- 
10~9]. 
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6.4.  Ejercicios  propuestos 

Completar  con  Maxima  los  ejercicios  siguientes: 

1.  Hallar,  si  existe,  algún  método  Runge-Kutta  explícito  de  tres  etapas  y 
orden  máximo,  cuyo  tablero  de  Butcher  tenga  la  forma 


0 

1/3 

1/3 

c3 

0.3 1  ®32 

1/4  b-2  3/4 

Aproximar  la  solución  en  el  tiempo  t  =  1,0  del  PVI:  y'(t)  =  t.y(t), 
y( 0)  =  1;  tomando  h  =  0,1  e  integrándolo  mediante  el  método  RK(3) 
hallado  en  el  apartado  anterior.  Asimismo,  tras  integrar  por  dicho  méto¬ 
do  con  paso  de  amplitud  h  =  0,2,  estimar,  por  el  método  de  extrapo¬ 
lación  de  Richardson,  el  error  cometido  en  la  primera  aproximación 
hallada  de  2/(1, 0)  y  mejorar  esta  mediante  dicho  método  de  extrapola¬ 
ción.  Comparar  la  solución  numérica  obtenida  con  paso  h  =  0,1  con  la 
exacta  dada  por  y(t)  =  et  /2  en  el  punto  t  =  1,0,  realizando  para  ello 
las  gráficas  de  las  soluciones  discreta  y  continua, 

2.  Para  el  PVI  del  ejercicio  anterior,  repite  lo  pedido  en  el  mismo  pero 
utilizando  el  método  de  Taylor  de  orden  tres  y  el  de  orden  cuatro. 

3.  Finalmente,  repite  el  anterior  utilizando  el  método  Runge-Kutta  explíci¬ 
to  de  cuatro  etapas  y  orden  4  “clásico” ,  con  un  programa  realizado  por 
vosotros  y  con  el  comando  rk. 
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